//刪除目錄和目錄下得所有文件和文件夾
procedure DeleteDir(sDirectory, DotDelDir: String);
var
? sr: TSearchRec;
? sPath,sFile: String;
begin
? if rightstr(sDirectory, 1) <> '\' then
??? sDirectory := sDirectory + '\';
? if rightstr(DotDelDir, 1) <> '\' then
??? DotDelDir := DotDelDir + '\';
? //檢查目錄名后面是否有 ''
? if Copy(sDirectory,Length(sDirectory),1) <> '' then
??? sPath := sDirectory + ''
? else
??? sPath := sDirectory;
? //------------------------------------------------------------------
? if FindFirst(sPath+'*.*',faAnyFile, sr) = 0 then
? begin
??? repeat
????? sFile:=Trim(sr.Name);
????? if sFile='.' then Continue;
????? if sFile='..' then Continue;

????? sFile:=sPath+sr.Name;
????? if (sr.Attr and faDirectory)<>0 then
????? begin
??????? if rightstr(sFile, 1) <> '\' then
????????? sFile := sFile + '\';
??????? if sFile = DotDelDir then
????????? Continue;
??????? DeleteDir(sFile,'')
????? end
????? else if (sr.Attr and faAnyFile) = sr.Attr then
??????? DeleteFile(sFile); //刪除文件
??? until FindNext(sr) <> 0;
??? FindClose(sr);
? end;
? RemoveDir(sPath);
? //------------------------------------------------------------------
end;

總結(jié)

以上是生活随笔為你收集整理的删除文件夹中包含的子文件夹及文件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。