Datei Information

 

Home
Nach oben

Last Update 20.07.2004

Copyright  2003
Ramses (C)

 

Hier sehen Sie ein Beispiel wie man Datei-Informationen abfragen kann,.. z.B. die Unversehrtheit bestimmter Dateien zu prüfen ;-))

Sub Give_FileInfo()
    Dim myFSO As Object, myFile As Object, strInfo As String
    Dim chkFile As String
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    'chkFile kann als Parameter übergeben werden oder
    'über eine Inputbox abgefragt werden
    chkFile = "C:\Demo.txt"
    Set myFile = myFSO.GetFile(chkFile)
    strInfo = myFile.Name & " on Drive " & UCase(myFile.Drive) & vbCrLf
    strInfo = strInfo & "Created: " & myFile.DateCreated & vbCrLf
    strInfo = strInfo & "Last Accessed: " & myFile.DateLastAccessed & vbCrLf
    strInfo = strInfo & "Last Modified: " & myFile.DateLastModified
    MsgBox strInfo, 0, "File Info"
End Sub