这个过程供建立目录使用,主要是FileCtrl单元提供的 MkDir只能建立不存在 的一级目录,而对于象C:\WINDOWS\Desktop\a\a\a\这样的不能建立且有异常 出现,所以写这个过程可以建立多级不存在的目录 }procedure Supper_MkDir(const value:string); var i,iSepPosition:integer; sTmpDir:array of string; begin setlength(sTmpDir,255); iSepPosition:=1; for i:=1 to length(value) do if value[i]='\' then begin sTmpDir[iSepPosition]:=Copy(value,1,i-1); inc(iSepPosition); end; sTmpDir[iSepPosition]:= value; try for i:=1 to iSepPosition do if not DirectoryExists(sTmpDir[i]) then MkDir(sTmpDir[i]); except MessageDlg('建立目录:'+value+'出错!'+#13+#10+''+#13+#10+ '请检查目录名是否正确。', mtError, [mbOK], 0); raise; end; end;
的一级目录,而对于象C:\WINDOWS\Desktop\a\a\a\这样的不能建立且有异常
出现,所以写这个过程可以建立多级不存在的目录 }procedure Supper_MkDir(const value:string);
var i,iSepPosition:integer;
sTmpDir:array of string;
begin
setlength(sTmpDir,255);
iSepPosition:=1;
for i:=1 to length(value) do
if value[i]='\' then
begin
sTmpDir[iSepPosition]:=Copy(value,1,i-1);
inc(iSepPosition);
end;
sTmpDir[iSepPosition]:= value;
try
for i:=1 to iSepPosition do
if not DirectoryExists(sTmpDir[i]) then
MkDir(sTmpDir[i]);
except
MessageDlg('建立目录:'+value+'出错!'+#13+#10+''+#13+#10+
'请检查目录名是否正确。', mtError, [mbOK], 0);
raise;
end;
end;
复制文件用SHFileOperation