张志峰的博客

水滴石川，积少成多。

导航

2011年12月5日

Delphi 拷贝目录

摘要： ---- 1、拷贝目录 ---- 为了能拷贝目录下带有子目录的情况，先定义一个辅助的拷贝函数，它是递归执行的，直到把目录下的所有文件和子目录都拷贝完。 ---- 1.1拷贝目录的递归辅助函数：DoCopyDir function DoCopyDir(sDirName:String; sToDirName:String):Boolean; var hFindFile:Cardinal; t,tfile:String; sCurDir:String[255]; FindFileData:WIN32_FIND_DATA; begin //先保存当前目录 ... 阅读全文

posted @ 2011-12-05 13:51 ╰★张志峰★╮ 阅读(1508) 评论(0) 推荐(0)

Delphi 删除目录

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

posted @ 2011-12-05 13:50 ╰★张志峰★╮ 阅读(2165) 评论(0) 推荐(0)

Delphi 移动目录

摘要： ---- 3、移动目录 ---- 有了拷贝目录和删除目录的函数，移动目录就变得很简单，只需顺序调用前两个函数即可： function MoveDir(sDirName:String; sToDirName:string):Boolean; begin if CopyDir(sDirName,sToDirName) then if RemoveDir(sDirName) then result:=True else result:=false; end; ///////////////////... 阅读全文

posted @ 2011-12-05 13:49 ╰★张志峰★╮ 阅读(491) 评论(0) 推荐(0)

Delphi 删除目录（二）

摘要： Delphi 删除目录（二）procedure TForm1.BitBtn1Click(Sender: TObject); var sr:TsearchRec; begin if directoryExists( 'g:\a ') then begin if FindFirst( 'g:\a\*.* ',faAnyFile,sr)=0 then begin repeat deleteFile( 'g:\a\ '+sr.Name); until FindNext(sr) <> 0; Findcl... 阅读全文

posted @ 2011-12-05 13:48 ╰★张志峰★╮ 阅读(413) 评论(0) 推荐(0)