delphi目录拷贝

1、delphi目录拷贝、删除和搬移的操作1、拷贝目录 为了能拷贝目录下带有子目录的情况，先定义一个辅助的拷贝函数，它是递归执行的，直到把目录下的所有文件和子目录都拷贝完。 1.1拷贝目录的递归辅助函数：DoCopyDirfunction DoCopyDir(sDirName:String;sToDirName:String):Boolean;varhFindFile:Cardinal;t,tfile:String;sCurDir:String255;FindFileData:WIN32_FIND_DATA;begin/先保存当前目录sCurDir:=GetCurrentDir;ChDir(sDi

2、rName);hFindFile:=FindFirstFile(*.*,FindFileData);if hFindFile$#60; $#62;INVALID_HANDLE_VALUE thenbeginif not DirectoryExists(sToDirName) thenForceDirectories(sToDirName);repeattfile:=FindFileData.cFileName;if (tfile=.) or (tfile=.) thenContinue;if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECT

3、ORY thenbegint:=sToDirName+tfile;if not DirectoryExists(t) thenForceDirectories(t);if sDirNameLength(sDirName)$#60; $#62; thenDoCopyDir(sDirName+tfile,t)elseDoCopyDir(sDirName+tfile,sToDirName+tfile);endelsebegint:=sToDirName+tFile;CopyFile(PChar(tfile),PChar(t),True);end;until FindNextFile(hFindFil

4、e,FindFileData)=false;FindClose(hFindFile);endelsebeginChDir(sCurDir);result:=false;exit;end;/回到原来的目录下ChDir(sCurDir);result:=true;end; 1.2拷贝目录的函数：CopyDirfunction CopyDir(sDirName:String;sToDirName:string):Boolean;beginif Length(sDirName)$#60; =0 thenexit;/拷贝.Result:=DoCo ir(sDirName,sToDirName);end;

5、 2、删除目录 删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。 2.1删除目录的递归辅助函数：DoRemoveDirfunction DoRemoveDir(sDirName:String):Boolean;varhFindFile:Cardinal;tfile:String;sCurDir:String;bEmptyDir:Boolean;FindFileData:WIN32_FIND_DATA;begin/如果删除的是空目录,则置bEmptyDir为Tru

6、e/初始时,bEmptyDir为TruebEmptyDir:=True;/先保存当前目录sCurDir:=GetCurrentDir;SetLength(sCurDir,Length(sCurDir);ChDir(sDirName);hFindFile:=FindFirstFile(*.*,FindFileData);if hFindFile$#60; $#62;INVALID_HANDLE_VALUE thenbeginrepeattfile:=FindFileData.cFileName;if (tfile=.) or (tfile=.) thenbeginbEmptyDir:=bEmpt

7、yDir and True;Continue;end;/不是空目录,置bEmptyDir为FalsebEmptyDir:=False;if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY thenbeginif sDirNameLength(sDirName)$#60; $#62; thenDoRemoveDir(sDirName+tfile)elseDoRemoveDir(sDirName+tfile);if not RemoveDirectory(PChar(tfile) thenresult:=falseelseresult:

8、=true;endelsebeginif not DeleteFile(PChar(tfile) thenresult:=falseelseresult:=true;end;until FindNextFile(hFindFile,FindFileData)=false;FindClose(hFindFile);endelsebeginChDir(sCurDir);result:=false;exit;end;/如果是空目录,则删除该空目录if bEmptyDir thenbegin/返回上一级目录ChDir(.);/删除空目录RemoveDirectory(PChar(sDirName);end;/回到原来的目录下ChDir(sCurDir);result:=true;end; 2.2删除目录的函数：DeleteDirfunction DeleteDir(sDirName:String):Boolean;beginif Length(sDirName)$#60; =0 thenexit;/删除.Result:=DoRemoveDir(sDirName) and RemoveDir(sDirName);end; 3、移动目录 有了拷贝目录和删除目录的函数，移动目录就变得很简单，只需顺序调用前两个函数即可：function MoveDir(sDir