轉：delphi 刪除指定檔案夾下所有檔案

標籤：

function TFtpContentThd.DeleteDirectory(NowPath: string): Boolean;var  search: TSearchRec;  ret: integer;  key: string;begin  if NowPath[Length(NowPath)] <> ‘\‘ then    NowPath := NowPath + ‘\‘;  key := NowPath + ‘*.*‘;  ret := findFirst(key, faanyfile, search);  while ret = 0 do  begin    if ((search.Attr and fadirectory) = fadirectory) then    begin      if (search.Name <> ‘.‘) and (search.name <> ‘..‘) then      begin        DeleteDirectory(NowPath + search.name);        removedir(NowPath + search.name); //如果需要刪除檔案夾則添加      end;    end    else    begin      if ((search.Attr and fadirectory) <> fadirectory) then      begin        deletefile(PAnsiChar(NowPath + search.name));      end;    end;    ret := FindNext(search);  end;  FindClose(search.FindHandle);  //FindClose(search); //發現線上程裡面不能用這，只能用上面的控制代碼  //removedir(NowPath); //如果需要刪除最外層檔案夾則添加  result := True;end;

　　

轉：delphi 刪除指定檔案夾下所有檔案