Hallo,

ich brauch dringenst eure Hilfe. Ich renn dauernd gegen die Wand

Ich will mit "deleteDir" einen Ordner löschen.

Das geht auch, aber nur wenn der Ordner nie einen Inhalt hatte.

Wenn der Ordner zuvor einen Inhalt hatte (bei mir nur immer eine Datei - die ich vor dem Löschen des Ordners gelöscht hab), dann gibt mir deleteDir immer ein false zurück.

Über FindFirst, FindNext hab ich mal diesen Ordner durchsuchen lassen und hab rausgefunden, dass folgende "Dateien" noch im Ordner vorhanden sind: ".", ".." und "thumbs.db".

Wenn ich aber in den Windows-Explorer schau, dann sagt der dass der ordner leer ist (0 Elemente).

Wie kann ich also diesen Ordner löschen?

hier mal ein wenig Code (aus meinem Test-Programm):

markieren

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.Checked := RemoveDir(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CheckBox2.Checked  := deleteFile(Edit2.Text);
  Button1.Enabled := CheckBox2.Checked;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  sr: TSearchRec;
  FileAttrs: Integer;

begin
  FileAttrs := 0;

  FileAttrs := FileAttrs + faHidden;
  FileAttrs := FileAttrs + faSysFile;
  FileAttrs := FileAttrs + faVolumeID;
  FileAttrs := FileAttrs + faDirectory;
  FileAttrs := FileAttrs + faArchive;
  FileAttrs := FileAttrs + faAnyFile;

  If FindFirst(Edit1.Text + '\*.*', FileAttrs, sr) = 0 then
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
          showmessage(sr.Name);
          showmessage(IntToStr(ord(deletefile(sr.Name))));
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

Button1 ist enabled = false
CheckBox1 und 2 dienen nur als anzeige ob true oder falsch

ach ja, thumbs.db lässt sich nicht löschen (siehe repeat-schleife)

mfg
Helmi

Hi Helmi,

lass dir mal im Windows Explorer auch versteckte Dateien anzeigen, dann siehst du auch die Thumbs.db. Versuch anschließend, diese manuell zu löschen und anschließend den Ordner von deinem Programm aus zu löschen.

Greetz
alcaeus

hallo

ich hab mir im win-explorer auch die versteckten dateien anzeigen lassen und eigenartigerweise war thumbs.db auch nicht zum sehen

Hi Helmi,

es könnte sein dass die Datei auch als Systemdatei eingestellt ist. Dies musst du auch in den Ordneroptionen einstellen. Bei mir wird die Datei jedenfalls angezeigt.

Greetz
alcaeus

ich hab jetzt meinen fehler gefunden warum ich die thumbs.db nicht löschen konnte

hier der "verbesserte Code":

markieren

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  sr: TSearchRec;
  FileAttrs: Integer;

begin
  FileAttrs := 0;

  FileAttrs := FileAttrs + faHidden;
  FileAttrs := FileAttrs + faSysFile;
  FileAttrs := FileAttrs + faVolumeID;
  FileAttrs := FileAttrs + faDirectory;
  FileAttrs := FileAttrs + faArchive;
  FileAttrs := FileAttrs + faAnyFile;

  If FindFirst(Edit1.Text + '\*.*', FileAttrs, sr) = 0 then
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
          showmessage(sr.Name);
          showmessage(IntToStr(ord(deletefile(Edit1.Text + '\' + sr.Name))));
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

Jetzt ist zwar der Ordner bis auf "." und ".." leer, aber löschen kann ich ihn immer noch nicht

Das ist kein Wunder: . und .. sind virtuelle Ordner, die ins übergeordnete bzw. ins eigene Verzeichnis verweisen. Die zu löschen ist unmöglich, da sie nicht existieren.

na aber dann ist die procedure deleteDir vollkommen nutzlos wenn man einen leeren Ordner nie löschen kann wegen den "." und ".."

oder gibts ne ne möglichkeit?

Wie gesagt, "." und ".." sind nur logische Links, wenn ausser denen im Verzeichnis nichts existiert, muss es löschbar sein.

leider nein - oder ich mach was falsch

Moin Helmi,

Angaben wie die Attribute sollte man nicht mit + verknüpfen sondern mit OR, also statt

markieren

Delphi-Quellcode:

  FileAttrs := FileAttrs + faHidden;
  FileAttrs := FileAttrs + faSysFile;
  // usw.

solltest Du

markieren

Delphi-Quellcode:

  FileAttrs := FileAttrs or faHidden;
  FileAttrs := FileAttrs or faSysFile;
  // usw.

verwenden.
Wenn Du mal nach faAnyFile suchst solltest Du dazu einen recht aktuellen Thread mit einer näheren Erklärung finden.

Um herauszubekommen warum Du den Ordner nicht löschen kannst, solltest Du Dir mal die Ursache anzeigen lassen.
Nach dem fehlgeschlagenen Löschversuch einfach mal
ShowMessage(SysErrorMessage(GetLastError));