目录拷贝、删除和搬移的操作

目录拷贝、删除和搬移的操作 1、拷贝目录　　 为了能拷贝目录下带有子目录的情况，先定义一个辅助的拷贝函数，它是递归执行的，直到把目录下的所有文件和子目录都拷贝完。　　 1.1拷贝目录的递归辅助函数：DoCopyDirfunction DoCopyDir(sDirName:String;sToDirName:String):Boolean;varhFindFile:Cardinal;t,tfile:String;sCurDir:String[255];FindFileData:WIN32_FIND_DATA;begin//先保存当前目录sCurDir:=GetCurrentDir;ChDir(sDirName);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_DIRECTORY thenbegint:=sToDirName+/+tfile;if not DirectoryExists(t) thenForceDirectories(t);if sDirName[Length(sDirName)]$#@60; $#@62;/ thenDoCopyDir(sDirName+/+tfile,t)elseDoCopyDir(sDirName+tfile,sToDirName+tfile);endelsebegint:=sToDirName+/+tFile;CopyFile(PChar(tfile),PChar(t),True);end;until FindNextFile(hFindFile,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;　　 2、删除目录　　 删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。　　 2.1删除目录的递归辅助函数：DoRemoveDirfunction DoRemoveDir(sDirName:String):Boolean;varhFindFile:Cardinal;tfile:String;sCurDir:String;bEmptyDir:Boolean;FindFileData:WIN32_FIND_DATA;begin//如果删除的是空目录,则置bEmptyDir为True//初始时,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:=bEmptyDir and True;Continue;end;//不是空目录,置bEmptyDir为FalsebEmptyDir:=False;if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY thenbeginif sDirName[Length(sDirName)]$#@60; $#@62;/ thenDoRemoveDir(sDirName+/+tfile)elseDoRemoveDir(sDirName+tfile);if not RemoveDirectory(PChar(tfile)) thenresult:=falseelseresult:=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(sDirName:String;sToDirName:string):Boolean;beginif CopyDir(sDirName,sToDirName) thenif RemoveDir(sDirName) thenresult:=Trueelseresult:=false;end;