Hallo.
Weiß jemand, wie man mittels einer Abfrage herausbekommen kann, wann eine Datei zum letzten Mal gespeichert/aktualisiert wurde. Mich interessiert vor allem der Tag, der im Explorer von Windows steht. Die anderen Angaben (zB Zeit) wären auch nicht schlecht, für mich im aktuellen Fall jedoch nicht zwingend notwendig.
Als Ergebnis bräuchte ich das Datum in einer Variablen.
Grüße, Aiko.
Hallo,
das geht am Besten mit dem FileSystemObjekt.
Function ZeigeDateizugriffsinfo(dateiAngabe)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(dateiAngabe)
s = UCase(dateiAngabe) & "
"
s = s & "Erstellt: " & f.DateCreated & "
"
s = s & "Letzter Zugriff: " & f.DateLastAccessed & "
"
s = s & "Letzte Änderung: " & f.DateLastModified
ZeigeDateizugriffsinfo = s
End Function
Der Code stammt aus ‚Script56.chm‘ von Microsoft. Einen Link zu dieser Datei findest Du in [FAQ:3076]
Gruß Rainer
Hallo Rainer.
Oh, super. Hab den Code ein wenig angepasst - ist jetzt aber genau das, was ich benötigt habe. Nützlich ist der Rest natürlich auch.
Vielen Dank, Aiko.
Hallo Aiko,
Hab den Code ein wenig angepasst …
war mir klar, daß Du damit kein Problem hast. 
Nützlich ist der Rest natürlich auch.
Das dachte ich mir, deshalb genau so. (Und selbst arbeiten habe ich mir dabei auch gespart. *fg*)
Gruß Rainer