Hiho,
kann mir mal jemand sagen, wieso dieser Code nicht funktioniert ?!? :
Mit DeleteFile kann man leider nur einzelne Dateien löschen. Die folgende Procedure löscht sämtliche Dateien eines Verzeichnisses:
Delphi-Quellcode:
procedure DeleteAll(Dir, Files : string);
var
SearchRec : TSearchRec;
begin
if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then
begin
DeleteFile(SearchRec.Name);
while FindNext(SearchRec) = 0 do
DeleteFile(Dir + SearchRec.Name);
end;
FindClose(SearchRec);
end;
Aufgerufen wird die Routine z.B. so:
DeleteAll('c:\temp','*.*');
Also bei mir klappt das nicht, also das Programm startet und gibt kein Fehler aus, aber die Dateien sind nicht gelöscht!
Danke
Trouble_Maker
[edit=sakura]Jahre später... Delphi-TAGs eingefügt *g* Mfg, sakura[/edit]