hallo,
ich möchte meine Rechnungen verwalten. in einem ordner befinden sich pdf-dateien, z.B. "01.03.2016_bla_bla.pdf". Das Datum ist das Kauf-Datum.
Beim Lauf des Makros sollen die dateien in einen anderen Ordner verschoben werden bei denen die Datumsdifferenz >= 2 Jahre beträgt.
Was mache ich falsch?
Sub r()
Dim pfad_VerzA As String, pfad_VerzB As String, s As String
Dim fs As Object
Dim fDatei As Object
Dim fdateien As Object
Dim fVerzA As Object
pfad_VerzA = "D:\Daten\aufbewahren\Rechnung"
pfad_VerzB = "D:\Daten\aufbewahren\Rechnung\keine Garantie mehr"
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerzA = fs.getFolder(pfad_VerzA)
Set fdateien = fVerzA.Files
For Each fDatei In fdateien
If DateDiff("y", Left(fDatei.Name, 10), Date) > 2 Then Name pfad_VerzA & "\" & fDatei.Name As pfad_VerzB & "\" & fDatei.Name
Next fDatei
End Sub
Vielen Dank für die Hilfe im Voraus!!
Grüße, Jörg
|