[VBA] Ricerca di file attraverso la data di creazione

[fosforo]

Scusate ecco il codice:

Dim oFs
Dim oFolder
Dim oFile
Dim Folder
Dim FolderSpec
Dim FileCollection

FolderSpec = "E:\"
Set oFs = CreateObject("Scripting.FileSystemObject")

If oFs.FolderExists(FolderSpec) Then
Set oFolder = oFs.GetFolder(FolderSpec)
Set FileCollection = oFolder.SubFolders
On Error Resume Next
For Each subfolders In FileCollection
For Each oFile In subfolders.Files
If DateDiff("d", FileDateTime(oFile), Now) > 1 Then
MsgBox (oFile)
End If
Next
Next
End If