Letzten Dateizugriff feststellen ?

' ChkFileProperties.vbs  

Option Explicit 
On Error Resume Next 

Dim objFSO, objFolder, objSubFld, objLog, f1, f2, colFiles, strMSG, strStart, strLog, i 

strStart = InputBox("Wo solls denn losgehen?","Check4FileProperties")   
strMSG = "Startverzeichnis: " & strStart & vbCrLf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~"   
strLog = "c:\CheckFileProperties.txt"   
Set objFSO = CreateObject("Scripting.FileSystemObject")   
Set objFolder = objFSO.GetFolder(strStart) 

ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder.SubFolders 
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 

For Each f1 in colFiles 
strMSG = strMSG & vbCrLf & objFSO.GetAbsolutePathName(f1) & vbCrLf
strMSG = strMSG & vbTab & "Erstellt: " & f1.DateCreated & vbCrLf  
strMSG = strMSG & vbTab & "Letzter Zugriff: " & f1.DateLastAccessed & vbCrLf  
strMSG = strMSG & vbTab & "Letzte Änderung: " & f1.DateLastModified  
Next 
End Sub 

Set objLog = objFSO.CreateTextFile(strLog, True) 
objLog.Write strMSG 
objLog.Close 

MsgBox "Fertig!"   
LoadFile strLog 

Private Sub LoadFile(File) 
Dim objShell, strApplication 
strApplication = "notepad.exe"   
Set objShell = CreateObject("WScript.Shell")   
objShell.Run strApplication & " " & File   
set objShell = Nothing 
End Sub