Bildergalerie +++ Ereignisse +++ Spiele +++ Tipps & Tricks

'alle Datumsangaben einer Datei lesen

Private Sub FileInfo(sFile As String)
    Dim vFso As Variant
    Dim vRet As Variant
    Set vFso = CreateObject("Scripting.FileSystemObject")
    Set vRet = vFso.GetFile(sFile)
    MsgBox "letzte Bearbeitung: " & Format(vRet.DateLastModified, "dddd, dd mmmm yyyy hh:mm:ss")
    MsgBox "erstellt am: " & Format(vRet.DateCreated, "dddd, dd mmmm yyyy hh:mm:ss")
    MsgBox "letzter Zugriff: " & Format(vRet.DateLastAccessed, "dddd, dd mmmm yyyy hh:mm:ss")
End Sub

Private Sub Form_Load()
 FileInfo ("c:\windows\system.ini")
End Sub