Sub
r()
Dim
i
As
Integer
Dim
pfad_VerzA
As
String
, pfad_VerzB
As
String
, s
As
Date
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
s = Left(fDatei.Name, 10)
i = DateDiff(
"d"
, s,
Date
)
If
i / 365 = 2
Or
i / 365 > 2
Then
Name pfad_VerzA &
"\" & fDatei.Name As pfad_VerzB & "
\" & fDatei.Name
Next
fDatei
End
Sub