Hallo, ich benötige Hilfe.
Ich habe folgenden Code zusammen gebastelt. Er soll eigentlich Dateien nach X Tagen (Anzahl Tage im Dateinamen _d_) in Ordner und auch alle Unterordner löschen aber es läuft nicht. Fehler Meldung: Zeile 10, Zeichen: 1 Fehler Objekt erforderlich: file. Warum wird das Objekt file benötigt?
Ich habe folgenden Code zusammen gebastelt. Er soll eigentlich Dateien nach X Tagen (Anzahl Tage im Dateinamen _d_) in Ordner und auch alle Unterordner löschen aber es läuft nicht. Fehler Meldung: Zeile 10, Zeichen: 1 Fehler Objekt erforderlich: file. Warum wird das Objekt file benötigt?
VB.NET-Quellcode
- Verzeichnis = "D:\Neuer Ordner"
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set ordner = fso.GetFolder(Verzeichnis)
- Set regex = CreateObject("vbscript.regexp")
- regex.pattern = "_(\d+)_"
- DeleteInFolder(ordner)
- Sub DeleteInFolder(ordner)
- Set dateien = ordner.Files
- For Each datei In dateien
- set match = regex.Execute(fso.GetBasename(file.Name))
- if match.count > 0 then
- intDays = CInt(match(0).submatches(0))
- if DateAdd("d",intDays,file.DateLastModified) < Now() then
- file.Delete
- End If
- End If
- Next
- Set untere = ordner.SubFolders
- 'Unterordner abklappern, DeleteInFolder rekursiv aufrufen
- For Each unter In untere
- DeleteInFolder(unter)
- Next
- End Sub
ich bin ein Anfänger, bitte habt Verständnis für meine Unwissenheit und eventuelle schlecht gestellte Fragen