Änderungen in Makro überwachen
05.01.2005 06:12:12
Iryn@
ich habe ein kleines Modul erstellt, welches gibt folgende Informationen zurück:
"Datei erstellt am" & Variable
"Letzte Zufriff" & Variable
"Letzte Änderung" & Variable
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Basismuster:
Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBx s, 0, "File Access Info"
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Ich möchte zur jeder Infoausgabe noch gerne die Rechnernamen anknüpfen.
Weißt jemand vielleicht, wie es geht?
Danke im Voraus