Questo snippet esegue una funzione semplice: controllare se, in base ad un dato criterio (nel nostro esempio file risalenti al giorno prima o più recenti), in una determinata cartella sono presenti nuovi file.
Nell’esempio (Un ringraziamento a Gary’s Student, aka James Ravenswood) n è il nome del file, d è la data del file che supera il criterio test (data di oggi -1).
Sub LookForNew()
Dim n As String, msg As String, d As Date
msg = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set fils = fso.GetFolder("C:\temp").Files
For Each fil In fils
n = fil.Name
d = fil.DateCreated
If d >= Date - 1 Then
msg = msg & n & vbTab & d & vbCrLf
End If
Next fil
If msg = "" Then
MsgBox "nessun nuovo file"
Else
MsgBox msg
End If
Set fso = Nothing
End Sub