Dateien die älter als 3 Monate sind in einem anderen Ordner verschieben

27/08/2010 - 13:41 von Walter Heying | Report spam
Hallo,

ich möchte gerne per Makro Dateien, die àlter als ein vorgegebenes
Datum sind aus einem bestimmten in einem "Altordner" verschieben. Wie
kann ich das durchführen?
Folgender Code war erfolglos:
Sub test()
Quelle = "C:\Eigene Dateien\"
verschiebeDatei = "*.xls"
Suchdatum = 40327
Set Verschieben = CreateObject("Scripting.FileSystemObject")
If FileDateTime(Quelle & verschiebeDatei) < Suchdatum Then
Verschieben.moveFile Quelle & verschiebeDatei, Ziel &
verschiebeDatei
End If
End Sub

Wie sieht der richtige Code aus?

Gruß
Walter
 

Lesen sie die antworten

#1 Peter Schleif
27/08/2010 - 14:17 | Warnen spam
Walter Heying schrieb am 27.08.2010 13:41 Uhr:

ich möchte gerne per Makro Dateien, die àlter als ein vorgegebenes
Datum sind aus einem bestimmten in einem "Altordner" verschieben.



Auf welche Datei-Eigenschaft beziehen sich die 3 Monate?
- Datum der Erstellung
- Datum der letzten Änderung
- Datum des letzten Zugriffs


Wie sieht der richtige Code aus?



Sub AlteDateienVerschieben()
Dim file As Variant
Dim Quelle As String
Dim Ziel As String

Quelle = "C:\Eigene Dateien\"
Ziel = "C:\Altordner\"

For Each file In CreateObject("Scripting.FileSystemObject") _
.GetFolder(Quelle).Files

'DateCreated
'DateLastModified
'DateLastAccessed

If DateValue(file.DateCreated) < DateAdd("m", -3, Date) Then
file.Move Ziel
End If
Next
End Sub

Ähnliche fragen