TIA Über Script -> letzte Änderung der Datei auslesen

[kiar]

Zuviel Werbung?
-> Hier kostenlos registrieren

Moin,

mit folgendem Script

Function DateiInfo(ByVal Dateiname)

Dim  f, fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(Dateiname)
   DateiInfo = f.DataLastModified
   
End Function

versuche ich auszulesen, wann die Datei das letzte Mal bearbeitet wurde. Leider wird mir immer nur die Aktuelle Zeit angezeigt.
Irgendwie ist das auch klar, da ich ja immer wieder auf die Datei zugreife.

Gibt es eine weitere Möglichkeit, die Letzte Bearbeitung der Datei heraus zu finden ?

Arbeite in der Simulation mit Tia V13

Raik

 

[kiar]

Update

Habe jetzt einen ShowSystemAlarm eingefügt und da wird der letzte Zugriff auch angezeigt

SmartTags("Datum") = DateiInfo("C:\Storage Card USB\DATEN\FORD Focus C346 0161-0164.csv")

so rufe ich die Funktion auf.

Warum steht im Datum immer das aktuelle Datum drin ??

für Hilfe und Ideen bin ich dankbar.

Raik

 

[Heinileini]

Zuviel Werbung?
-> Hier kostenlos registrieren

versuche ich auszulesen, wann die Datei das letzte Mal bearbeitet wurde. Leider wird mir immer nur die Aktuelle Zeit angezeigt.
Irgendwie ist das auch klar, da ich ja immer wieder auf die Datei zugreife.

Wie greifst Du denn immer wieder zu? Wenn die Datei nur zum Lesen geöffnet wird, sollte DateLastModified nicht "aktualisiert" werden.
Wenn die Datei "vorsichtshalber" zum Lesen und Schreiben geöffnet wird, weil vielleicht auch schreibend darauf zugegriffen werden könnte, hast Du keine Chance, weil das Datum auch dann aktualisiert wird, wenn nicht wirklich Gebrauch gemacht wird von der Möglichkeit zu schreiben. Das Öffnen der Datei mit SchreibZugriff genügt, um das Datum zu aktualisieren.
Hättest Du denn eine Möglichkeit, die Information, die Du benötigst, selbst zu verwalten (selbst in die Datei zu schreiben bzw. sie zu lesen)?
Gruss, Heinileini

 

[kiar]

DateLastModified
Gruss, Heinileini

Das war es

Ich sollte vielleicht mal meine Brille putzen.

Danke