1.删除多级目录(含子目录)及文件function Deltree(path : string): Boolean ; var SearchRec: TSearchRec; begin Result:=True; //判断目录是否存在 if DirectoryExists(path) then begin FindFirst(path+'/*.*', faAnyFile, SearchRec); repeat //修改文件属性为普通属性值 FileSetAttr(path+SearchRec.Name,0); //如果是目录并且不是.和..则递归调用DelTree if(SearchRec.Attr and faDirectory > 0) then begin if(SearchRec.Name[1]<>'.') then if(not Deltree(path+'/'+SearchRec.Name)) then break; end else//如果是文件直接删除 if(not DeleteFile(path+'/'+SearchRec.Name))then break; //继续查找,直到最后 until (FindNext(SearchRec)<>0); FindClose(SearchRec); //删除该目录 Result := ReMoveDir(path); end else Result := False; end;
2.创建多级目录
ForceDirectories(dir)
delphi目录操作
最新推荐文章于 2021-03-30 15:44:34 发布