"For Each" für Datein ?
lupo
Ich möchte in einem Ordner die Namen der Datein durchsuchen und vergleichen. Ist der vergleich ungleich, so sollen die Datein gelöscht werden.
Den Vergleich führe ich über die LIKE - Funktion durch.
Damit alle Datein verglichen werden, wollte ich FOR EACH einsetzen.
Geht das eigentlich oder ist FOR EACH nur in der Tabelle einsetzbar.
Mein Makro läuft jedenfalls noch nicht hat jemand eine Idee bwz. kann mir bitte jemand auf die Sprünge helfen?
DANKE, schon einmal im Voraus.
lupo
Hier mein Makro:
Sub neu()
Dim file As Object
Dim backupDir
Dim backupFile
Dim backupType
Dim time2
Dim time3
Dim day
backupDir = Worksheets("einstellungen").Range("B2") ' Pfad / Ordner der durchsucht werden _
soll
backupFile = Worksheets("einstellungen").Range("B4") ' Dateiname nach dem gesucht wird
backupType = Worksheets("einstellungen").Range("B5") ' Dateityp txt, xls usw.
day = Worksheets("einstellungen").Range("B7") ' Anzahl der Tage
time2 = Format(Now - day, "_DD_MM_YYYY")
time3 = Format(Now, "_DD_MM_YYYY")
file = (backupDir & "\*.*")
For Each file In backupDir
If file Like (backupDir & "\" & backupFile & time2 & "." & backupType) - (backupDir & "\" & _
backupFile & time3 & "." & backupType) Then
Kill file
End If
Next
End Sub