Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
Delphi 10.4 Sydney
|
Re: Dateien auf gesamter Festplatte löschen
28. Feb 2007, 15:55
Hallo,
der Code ist "relativ" einfach.
FindFirst, FindNext, FindClose -> eine Methode DeleteFile
zum Suchen innerhalb eines Verzeichnisses,
dabei muss .. und . als Name ignoriert werden.
Beim Durchlaufen der Dateien muss geprüft werden,
ob es sich um ein Verzeichnis handelt,
wenn ja mit ChDir(Name) rein und den "DeleteFile" alle gewünschten Dateien löschen,
danach mit ChDir('..') wieder ein Verzeichnis zurück.
Ist also mit Rekursion verbunden.
Heiko
Heiko
|