Es gibt bereits sooo viele Threads zu dem Thema, daß ich mir einfach mal DEN hier rauspicke:
Thema: RemoveDir funzt nicht!
Unterthema: RemoveDir funzt manchmal(!) nicht.
Ich habe alle Threads in der
DP wieder und wieder durchgelesen. Viele nutzen diese SHFileOperation-Funktion. Leider ruft die aber "ZeroMemory" oder sowas auf und mein Delphi 5 kann damit nichts anfangen.
Also habe ich die Funktionen von SirThornberry "DeleteFiles" und "DeleteDirectory" benutzt, in der Hoffnung, daß diese besser tun, als meine eigenen.
Naja, es war ein Versuch wert.
Folgendes Problem:
Ich lege im Programm (per Button-Klick) mit "ForceDirectories(Dir)" Verzeichnisse an, in die ich mit "CopyFile" Dateien hinein kopiere.
Gleich im nächsten Schritt (natürlich nur in der Testphase) lösche ich (per Button-Klick) alle gerade angelegten Verzeichnisse inklusive aller in ihnen enthaltenen Dateien wieder.
In allen Fällen werden restlos alle Dateien gelöscht. ABER:
Nur in 50 Prozent der Fälle werden auch alle Verzeichnisse gelöscht!
In den anderen 50 Prozent läßt das Programm ein paar LEERE Verzeichnisse zurück. Um nichts in der Welt ist mein Programm hinterher nochmal dazu zu bewegen, diese Leichen ebenfalls noch zu entfernen!
Lösche ich sie jedoch von Hand und starte einen neuen Durchlauf, mit den gleichen Startbedingungen, dann stehen die Chancen 1:2 daß diesmal alle Verzeichnisse gelöscht werden.
Lege ich von Hand Verzeichnisse an, löscht das Programm sie niemals!
Der folgende Quellcode kann von Euch so nicht ausprobiert werden, da Euch alle selbst geschrieben Methoden u.ä. fehlen. Er dient nur dazu, ein bißchen einen Überblick zu bekommen was ich tue...
Zum Kopieren:
Delphi-Quellcode:
// Suche in jedem ...
for iDvzIdx := 0 to ZSI.iGetAnzUnterDVZ - 1 do begin
// ... der angegebenen Unter-Verzeichnisse ...
if ZSI.bGetUnterDvzStatus((ZSI.slGetUnterDVZ)[iDvzIdx]) = TRUE then begin
// ... nach jedem ...
for iTypIdx := 0 to ZSI.iGetAnzTypenAM - 1 do begin
// ... der ausgewählten Datei-Typen ...
if ZSI.bGetDateiTypStatus((ZSI.slGetDateiTypenAM)[iTypIdx]) = TRUE then begin
// ... und kopiere diese in´s Ziel-Verzeichnis.
sQuelle := ZSI.sGetQuellDVZ + (ZSI.slGetUnterDVZ)[iDvzIdx] + '\';
sTeilVerzeichnis := ZSI.sGetUnterDVZ_OhneErstes((ZSI.slGetUnterDVZ)[iDvzIdx]);
sZiel := ZSI.sGetZielDVZ + '\' + sTeilVerzeichnis + '\';
if SindFilesinDir(sQuelle, '*.' + (ZSI.slGetDateiTypenAM)[iTypIdx], TRUE) = TRUE then begin
DirErzeugen(sZiel);
sDatei := '*.' + (ZSI.slGetDateiTypenAM)[iTypIdx];
CopyFiles(sQuelle, sZiel, sDatei, FALSE);
end;
end; // end - if
end; // end - for
end; // end - if
end; // end - for
Zum Löschen:
Delphi-Quellcode:
function TFrmZipSave.DeleteDirectory(ADirName: String): Boolean;
var
LRec : TSearchRec;
begin
DeleteFiles(ADirName + '\*');
if FindFirst(ADirName + '\*', faDirectory, LRec) = 0 then
begin
repeat
if (copy(LRec.name, 1, 1) <> '.') and DirectoryExists(ADirName + '\' + LRec.Name) then
DeleteDirectory(ADirName + '\' + LRec.Name)
;
until FindNext(LRec) <> 0;
end;
SysUtils.FindClose(LRec);
result := RemoveDir(ADirName);
if result = TRUE then begin
iAnzDvzGeloescht := iAnzDvzGeloescht + 1;
pnlErgebnis.Caption := IntToStr(iAnzDateienWeg) + ' Dateien und ' +
IntToStr(iAnzDvzGeloescht) + ' Verzeichnisse gelöscht...';
Application.ProcessMessages;
end;
end; {*** DeleteDirectory ***}
procedure TFrmZipSave.DeleteFiles(FilenameMask: String);
var
LRec : TSearchRec;
LPath : String;
bResult : Boolean;
begin
if FindFirst(FilenameMask, faAnyFile + $80 + $2000, LRec) = 0 then begin
LPath := ExtractFilePath(FilenameMask);
repeat
if (LRec.Name <> '.') and (LRec.Name <> '..') then begin
// ggf. Schreibschutz entfernen
If (LRec.Attr and SysUtils.faReadOnly) <> 0 then
FileSetAttr(LPath + LRec.Name, LRec.Attr - SysUtils.faReadOnly)
;
bResult := SysUtils.DeleteFile(LPath + LRec.Name);
if bResult = TRUE then begin
iAnzDateienWeg := iAnzDateienWeg + 1;
pnlErgebnis.Caption := IntToStr(iAnzDateienWeg) + ' Dateien und ' +
IntToStr(iAnzDvzGeloescht) + ' Verzeichnisse gelöscht...';
Application.ProcessMessages;
end;
end;
until FindNext(LRec) <> 0;
end;
SysUtils.FindClose(LRec);
end; {*** DeleteFiles ***}
Meine Frage:
Woran kann es liegen, daß RemoveDir mal tut und mal nicht?
Gibt es vielleicht irgendwelche DateiAttribute, die ich noch abfragen sollte?