Einzelnen Beitrag anzeigen

Cuchulainn

Registriert seit: 26. Aug 2003
182 Beiträge
 
Delphi 5 Enterprise
 
#1

Verzeichnis und Dateien löschen

  Alt 20. Jan 2004, 18:05
Ich lege in meinem Programm ein Verzeichnis "Temp" an, in dem ich temporär Dateien speichern will. Wenn das Programm beendet wird, sollen die Dateien und das Verzeichnis gelöscht werden.
Ich habe mir dafür folgende Funktion gebaut:

Delphi-Quellcode:
procedure PDelTemp;
var SearchRec: TSearchRec;
    StrDir: String;
begin
  StrDir := ExtractFilePath(ParamStr(0)) + 'Temp';
  try
    if FindFirst(StrDir + '\*.*', faAnyFile, SearchRec) = 0 then
    begin
      while FindFirst(SearchRec) = 0 do
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
           DeleteFile(StrDir, + '\' + SearchRec.Name);
      end;
    end;
    // Das Verzeichnis ist leer und soll jetzt gelöscht werden
    RemoveDirectory(StrDir);
  finally
    SearchRec.Free
  end;
end;
Das Verzeichnis wird ohne Probleme geleert, aber es wird nicht gelöscht. Weiß jemand, wo der Fehler liegt?
  Mit Zitat antworten Zitat