Delphi,删除包含内容的文件夹

| 当我在文件夹中有子文件夹时-此代码不会删除文件夹...是否有任何错误?
procedure TForm.Remove(Dir: String);
var
  Result: TSearchRec; Found: Boolean;
begin
  Found := False;
  if FindFirst(Dir + \'\\*\', faAnyFile, Result) = 0 then
    while not Found do begin
      if (Result.Attr and faDirectory = faDirectory) AND (Result.Name <> \'.\') AND (Result.Name <> \'..\') then Remove(Dir + \'\\\' + Result.Name)
      else if (Result.Attr and faAnyFile <> faDirectory) then DeleteFile(Dir + \'\\\' + Result.Name);
      Found := FindNext(Result) <> 0;
    end;
  FindClose(Result); RemoveDir(Dir);
end;
已邀请:
如果您是我,我只会告诉操作系统删除包含所有内容的文件夹。通过写(
uses ShellAPI
var
  ShOp: TSHFileOpStruct;
begin
  ShOp.Wnd := Self.Handle;
  ShOp.wFunc := FO_DELETE;
  ShOp.pFrom := PChar(\'C:\\Users\\Andreas Rejbrand\\Desktop\\Test\\\'#0);
  ShOp.pTo := nil;
  ShOp.fFlags := FOF_NO_UI;
  SHFileOperation(ShOp);
[如果你这样做
  ShOp.fFlags := 0;
相反,您会看到一个不错的确认对话框。如果你这样做
ShOp.fFlags := FOF_NOCONFIRMATION;
您没有得到确认对话框,但是如果操作很长时间,则会得到进度条。最后,如果添加“ 5”标志,则将目录移至“废物箱”,而不是将其永久删除。
ShOp.fFlags := FOF_ALLOWUNDO;
当然,您可以根据需要组合标志:
ShOp.fFlags := FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
将不会显示任何确认信息(但会显示一个进度对话框,因为您未指定
FOF_NO_UI
),并且该目录将被移至废纸and并且不会被永久删除。
最简单的方法是叫
TDirectory.Delete(Dir, True)
。 在ѭ11中发现了
TDirectory
,这是RTL的最新添加。
True
标志传递给
Recursive
参数,这意味着在删除目录之前会显示目录的内容,这是删除目录的重要部分。 在评论中,您告诉我们您使用的是Delphi 7,因此无法使用。 您的代码看起来大部分都很好。但是,您的意思不是:
(Result.Attr and faAnyFile <> faDirectory)
我想你的意思是:
(Result.Attr and faDirectory <> faDirectory)
我可能会这样写:
procedure TMyForm.Remove(const Dir: string);
var
  Result: TSearchRec;
begin
  if FindFirst(Dir + \'\\*\', faAnyFile, Result) = 0 then
  begin
    Try
      repeat
        if (Result.Attr and faDirectory) = faDirectory then
        begin
          if (Result.Name <> \'.\') and (Result.Name <> \'..\') then
            Remove(Dir + \'\\\' + Result.Name)
        end
        else if not DeleteFile(Dir + \'\\\' + Result.Name) then
          RaiseLastOSError;
      until FindNext(Result) <> 0;
    Finally
      FindClose(Result);
    End;
  end;
  if not RemoveDir(Dir) then
    RaiseLastOSError;
end;
上一次我需要删除包含内容的文件夹时,我使用了JCL:
uses JclFileUtils;

DeleteDirectory(DirToDelete, True);
最后一个参数告诉文件是否应该进入回收站,这是一个不错的选择。
要解决原始问题,请尝试以下操作:
procedure TForm.Remove(const Dir: String);
var
  sDir: String;
  Rec: TSearchRec;
begin
  sDir := IncludeTrailingPathDelimiter(Dir);
  if FindFirst(sDir + \'*.*\', faAnyFile, Rec) = 0 then
  try
    repeat
      if (Rec.Attr and faDirectory) = faDirectory then
      begin
        if (Rec.Name <> \'.\') and (Rec.Name <> \'..\') then
          Remove(sDir + Rec.Name);
      end else
      begin
        DeleteFile(sDir + Rec.Name);
      end;
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;
  RemoveDir(sDir);
end; 
uses DSiWin32;

DSiDeleteTree(folderName, false);
DSiWin32是一个开放源代码项目,与“按需使用”许可证相关。

要回复问题请先登录注册