Dim sPath As String
        Dim datum As String
 
        sPath = "C:\"
 
        Dim oDir As New System.IO.DirectoryInfo(sPath)
        Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
        Dim oFile As System.IO.FileInfo
 
        For Each oFile In oFiles
            datum = oFile.LastAccessTime
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist