delphi目录操作

cdboy1998

于 2008-06-06 21:42:00 发布

阅读量663

点赞数

文章标签： delphi path function string

本文链接：https://blog.youkuaiyun.com/logingyw/article/details/2518204

版权

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)