codice:
private function CheckDataFile (percorsofile as string) as date
Dim fso As New FileSystemObject
Dim f As File

    Set f = fso.GetFile(percorsofile)

    CheckDataFile = f.DateLastModified
    
    
    Set f = Nothing
    Set fso = Nothing
end function
@cassano solita storia se devi dare una risposta seria ben venga altrimenti esistono altri spazi