Dateien löschen älter als xxx

[littleDave]

Mach mal

Delphi-Quellcode:

ShowMessage(JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'\*.*')

und schau ob da nicht irgendwas schief läuft (zwei \ direkt hintereinander oder so)

[DeddyH]

Das sag ich doch die ganze Zeit ;)

[SaFu]

So das klappt jetzt wunderbar, das Problem war wirklich ein Pfad Fehler.

Jetzt ist mir nur aufgefallen das ich das garnicht so realisieren kann wäre auch zu schön gewesen wenn es so leicht ginge.

Das Problem was ich habe ist, das ich mehrere Ordner habe in der ShellTrieView (Bild Ordnerstrucktur.jpg) die naturlich auch mehr werden können und die alle, die selbe Dateienstrucktur haben wie im bild: Dateien.jpg.

Wie durchsuche ich jetzt alle Ordner in der ShellTreeView

1. Sind diese Dateien (strucktur) vorhanden (FileExists)
2. Wenn ja, lösche alle Dateien die älter als eingestellte Zeit (90Tage).

Bei meiner jetzigen funktion kann ich nicht in alle Ordner gehen da sonst auch Dateien gelöscht werden die ja nicht gelöscht werden sollen, wenn ich z.b ein Bild meiner Großoma drin habe und das älter als die eingestellte Ziet ist.

Es sollen nur Dateien gelöscht werden die so heißen wie auf dem Bild: Dateien.jpg