Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

FileDateTime Funktion

38 views
Skip to first unread message

Matthias Kohler

unread,
Jan 4, 2002, 3:09:48 AM1/4/02
to
Hallo NG,

ich möchte per VBA eine Meldung ausgeben, wenn eine Datei vor dem 1.1.2002 erstellt wurde
(Euro).

die FileDateTime Funktion gibt einen Wert vom Typ Variant (Date) zurück, das den Tag und
die Uhrzeit der Erstellung bzw. der letzten Änderung der Datei anzeigt.
Ich möchte aber nicht das Datum der letzten Änderung/Speicherung sondern explizit das
Erstellungsdatum abfragen . Geht das ?

Matze

stefan onken

unread,
Jan 4, 2002, 4:31:38 AM1/4/02
to
hi Matthias,
schau mal in der OH unter BuiltinDocumentProperties nach.


ciao
stefan

--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de

Frank Arendt-Theilen

unread,
Jan 4, 2002, 7:34:04 AM1/4/02
to
Hallo Matthias,
wie folgt:

Sub CreationDate()
ActiveSheet.Range("D1").Value = _
Int(ActiveWorkbook.BuiltinDocumentProperties("Creation date"))
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de, Homepage: www.xl-faq.de

Dr. Eckehard Pfeifer

unread,
Jan 4, 2002, 8:19:37 AM1/4/02
to
Hallo, Frank, beachten sollte man noch, dass es zwei Creation-Dates gibt:
Das von Office und das vom Betriebssystem (erstmaliges Erscheinen auf einem
Laufwerk). Das führt zu der lustigen Konstellation, das manche Dateien
früher das letzte Mal geändert wurden als sie erstellt wurden. Kleiner Test
mit dem Scripting Host (Verweis nicht vergessen)

Dim fso As FileSystemObject
Dim fil As File
Set fso = New FileSystemObject
Set fil = fso.GetFile(ThisWorkbook.FullName)
MsgBox fil.DateCreated
MsgBox ThisWorkbook.BuiltinDocumentProperties("Creation Date")

bringt Licht ins Dunkel (falls man die Datei mal von einem Laufwerk aufs
andere gebracht hat).

Gruss
Eckehard (verbunden mit besten Neujahrswuenschen, natürlich auch für alle
anderen)


Frank Arendt-Theilen

unread,
Jan 4, 2002, 11:06:15 AM1/4/02
to
Hallo Eckehard,
ja, vielen Dank! Was'n das für'n MS-Schmarren mit Creation Dates?
Das hiesse, ich müsste beide auslesen und das ältere als Creation Date
interpretieren?

MsgBox ThisWorkbook.BuiltinDocumentProperties("Creation Date")
entspricht dem Anlegen der Arbeitsmappe und
MsgBox fil.DateCreated entspricht erstmaliges Erscheinen auf der
Festplatte!? Wow!

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de, Homepage: www.xl-faq.de

0 new messages