Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
27. Nov 2009
Alles klar.
Danke für eure Hilfen.
Werde jetzt ein wenig testen.
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
27. Nov 2009
Danke, habe mir nun folgenden Code gebastelt:
if FindFirst(copy(Application.ExeName,1, length(Application.ExeName)-10) + 'PDF-Dateien\*.*',faAnyFile, searchResult) = 0 then
begin
repeat
If (pos('Test', searchResult.Name) <> 0) AND (searchResult.Size > 0) then
DeleteFile(copy(Application.ExeName,1, length(Application.ExeName)-10) + 'PDF-Dateien\' + searchResult.Name);
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
27. Nov 2009
Wie mache ich das denn genau mit FindFirst/FindNext ?
Es gibt z.b. drei Dateien mit den Dateinamen:
Hallo_Test.txt
Test_it.jpg
Text.bmp
Es müssten nun die ersten beiden Dateien gelöscht werden ?
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
27. Nov 2009
Hallo zusammen,
mit DeleteFile kann man ja Dateien auf der Festplatte löschen.
Wie kann ich nun alle Dateien auf der Festplatte löschen die das Wort "Test" beinhalten ?
Gruss
Holger