Erstellungsdatum Dateien

[RKuehle]

Hallo Forum,

ich habe die unter http://atnotes.de/index.php?topic=10739.0 gelistete Klasse in Benutzung um ua. das Erstellungsdatum von Dateien auszulesen.
Das sieht dann etwa so aus:

Dim fti As New fileinfo
dim fti3x as string
fti3x=fti.GetFileTimeInfo (  strfname , 3 )
fti3x=Left$(fti3x, Instr(fti3x,",") - 1) ' Nur das Datum vom String

Die Klasse habe ich original in den Declare-Abschnitt übernommen.

Problem dabei:
Als Ergebnis steht in fti3x immer der 1.1.1601 drin. Die anderen Datumsangaben kommen mit sinnvollen Werten raus.

Kann mir jemand einen Tipp geben warum das Teil beim Erstellungsdatum so stur ist ?

Ich benutze LoNo 5.09 unter Xp Pro Sp2 deutsch.

Jeder Hinweis ist willkommen !

Danke !

Grüße RK

[Axel]

Ohne jetzt mal tiefer zu graben ist mir aufgefallen, dass du das Erstelldatum mit Mode 3 abfragen willst. der Wert 3 wird aber garnicht von der funktion ausgewertet.

Versuch's doch mal so:

fti3x=fti.GetFileTimeInfo (  strfname , 2 )


Axel

[RKuehle]

@Axel

So langsam bekomme ich Angst davor, dass eigene Doofheit mal strafrechtlich verfolgt.

Du hast natürlich recht, war der falsche Parameter.

Danke !

Grüße RK

[Axel]

So langsam bekomme ich Angst davor, dass eigene Doofheit mal strafrechtlich verfolgt.

Dann wären aber 99% aller Menschen vorbestraft.   

Axel