codice:
strPath = "D:\"
Set fl = FileObject.GetFile(strPath & "ultima_foto.jpg")
data_file = f1.DateLastModified
per modificare il tuo codice il meno possibile...

ma può tornarti utile la funzione FileDateTime