Delphi, Ordner löschen mit Inhalt

wenn ich Unterordner im Ordner - dieser code ist nicht Ordner löschen... gibt es da irgendwelche Fehler?

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;

Als ein beiseite, dieser code geschrieben werden kann, mit einer repeat-until-Schleife und somit vermeiden die Notwendigkeit für die Found lokale variable.
Auch, es ist ein bisschen komisch, dass Found ist false wenn eine Datei gefunden wurde, und true wenn eine Datei nicht gefunden wurde...
Wenn eine der nachfolgenden Antworten dein problem gelöst hat, sollten Sie es akzeptieren, indem Sie auf die Häkchen Links neben der Antwort. Wenn mehr als eine Antwort dein problem gelöst ist, wählen Sie das 'beste' anzunehmen.
Einige dups: stackoverflow.com/questions/16336761/..., stackoverflow.com/questions/11798783/...

InformationsquelleAutor Emi | 2011-04-19

27

Wenn ich du wäre, würde ich nur sagen, das Betriebssystem zu löschen, der Ordner mit all seinem Inhalt. So tun, indem Sie schreiben (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);
```
[Wenn Sie
```
  ShOp.fFlags := 0;
```
statt, erhalten Sie eine schöne Bestätigung dialog. Wenn Sie
```
ShOp.fFlags := FOF_NOCONFIRMATION;
```
erhalten Sie nicht den Bestätigungs-Dialog, aber Sie erhalten eine Fortschrittsanzeige, wenn die operation ist langwierig. Schließlich, wenn Sie fügen Sie die FOF_ALLOWUNDO Flagge, verschieben Sie das Verzeichnis in den Papierkorb, anstatt Sie dauerhaft zu löschen.
```
ShOp.fFlags := FOF_ALLOWUNDO;
```
Natürlich, Sie können kombinieren, Fahnen, wie Sie möchten:
```
ShOp.fFlags := FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
```
zeigen keine Bestätigung (aber ein Dialogfeld mit dem Fortschritt, weil Sie nicht angeben FOF_NO_UI) und das Verzeichnis wird dann in den Papierkorb und nicht dauerhaft gelöscht.]
- Ich kann nicht kompilieren von code - nicht deklarierte Bezeichner: FOF_NO_UI
- Dann erklären const FOF_NO_UI = 1556;.
- PChar('C:\Users\Andreas Rejbrand\Desktop\Test\'#0) ist eher Bizarr. Was ist der deal? Schreiben Sie PChar(Dir). Aber wenn Sie wurden mit einer wörtlichen dann könnte man einfach schreiben ShOp.pFrom := 'C:\Users\Andreas Rejbrand\Desktop\Test\';
- Nach Dokumentation, die pFrom Zeichenfolge muss doppelt null beendet. Soweit ich weiß, ohne Zusatz von #0 es ist nur garantiert, um am Ende mit einer einzigen null-Zeichen.
- Danke!!!
- href="http://msdn.microsoft.com/en-us/library/bb759795%28v=VS.85%29.aspx" >SHFIleOperation erwartet, dass eine Doppel-null-terminierte Liste von Dateien oder Ordnern. Der PChar-cast liefert die erste; die Verkettung stellt die zweite.
- Ah, ich sehe.
- +1 für das OS um die Arbeit zu tun... Obwohl, ich würde angeben, "keine UI" - je nachdem, warum ich waren Sie einen Ordner löschen, so standard-Bestätigungen gebracht werden kann, wenn die Umstände es erfordern. Zum Beispiel, wenn es passt nicht in den Papierkorb, oder gibt es Unterordner, die erfordern zusätzliche Privilegien, etc.
- Warum war das downvoted?
- FWIW diese Methoden funktionieren nicht für Dienstleistungen, die nur von desktop-apps und es kann sehr langsam sein.
- Meine version des Codes war leise zu scheitern, weil die PChar() fehlte. THX
InformationsquelleAutor Andreas Rejbrand
29

Die einfachste Sache zu tun ist, rufen Sie TDirectory.Delete(Dir, True).

TDirectory ist in IOUtils das ist eine ganz neue RTL-Zusatz.

Den True fahne übergeben wird, die Recursive parameter, was bedeutet, dass der Inhalt der Verzeichnisse sind empied vor dem Verzeichnis entfernt, einen wesentlichen Teil der das löschen von Verzeichnissen.

In einem Kommentar, den Sie uns mitteilen, dass Sie mit Delphi 7 und, so kann dies nicht verwendet werden.

Dein code sieht meist gut. Sie müssen jedoch nicht bedeuten:
```
(Result.Attr and faAnyFile <> faDirectory)
```
Ich denke du meinst:
```
(Result.Attr and faDirectory <> faDirectory)
```
Ich würde wahrscheinlich schreiben Sie es wie folgt:
```
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;
```
- Danke, aber ich arbeite mit Delphi 7.
- Bitte nicht nutzen End, Try, und Finally!
- Es ist zu spät! Ich mache das, damit Sie abheben, weil Sie nicht-standard-Ablaufsteuerung. Sie sind wie schicke gotos.
- Gut, OK, fair enough...
- +1 für das Auffinden des Fehlers.
- Ich denke, diese version hat einen bug, es wird versuchen, zu löschen, wird eine "Datei" mit "." oder ".." in ihm. Alles ruft nach unten auf die fehlende begin..end nach if (Result.Attr and faDirectory) = faDirectory, Remy bekam es gleich in seiner version.
- Danke. Du hast Recht. Dies ist der Grund, warum ich nie und nimmer schreiben Sie code wie diesen. An meinem Arbeitsplatz haben wir mit begin/end auf alle Blöcke.
- Froh, dass ich helfen konnte, ist es sehr leicht zu fallen in die Falle, ohne begin/end 🙂
InformationsquelleAutor David Heffernan
9

Der letzten Zeit, die ich brauchte, um einen Ordner zu löschen mit Inhalte, die ich verwendet, die JCL:
```
uses JclFileUtils;

DeleteDirectory(DirToDelete, True);
```
Der Letzte parameter gibt an, ob die Dateien gehen in den Papierkorb oder nicht, das ist ein netter bonus.
- Und was passiert, wenn der Ordner und alle seine Inhalte passen nicht in den Papierkorb? Tut DeleteDirectory verwenden Sie die ShellApi so, dass der Umgang mit diesen Arten von Umständen ist, wie das OS machen würde?
- Hinter den kulissen DeleteDirectory macht genau das, was Andreas Lösung ist: rufen Sie SHFileOperation. Aber wenn Sie schon mit der JCL Aufruf DeleteDirectory ist nur eine bequeme code-Zeile. Sollten Sie den Rückgabewert überprüfen, wenn.
- ok danke, das ist gut zu wissen
InformationsquelleAutor Heinrich Ulbricht

Adresse der ursprünglichen problem - versuchen Sie dies:

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;

InformationsquelleAutor Remy Lebeau

3
```
uses DSiWin32;

DSiDeleteTree(folderName, false);
```
DSiWin32 ist open-source-Projekt relased mit "nutzen, wie Sie möchten" - Lizenz.

InformationsquelleAutor gabr

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.