Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
 
Delphi 10.4 Sydney
 
#10

Re: Dateien auf gesamter Festplatte löschen

  Alt 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
  Mit Zitat antworten Zitat