Vorheriges Thema: GetFileStoreFree, GetFileStoreSize und GetFileStoreUsage - Abrufen des freien, gesamten und belegten SpeicherplatzesNächstes Thema: GetLongFileName - Konvertieren kurzer Dateinamen in lange Dateinamen


GetFileTime - Abrufen des Datums der Erstellung, des letzten Zugriffs oder der letzten Änderung einer Datei

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Mit der Funktion "GetFileTime" wird entweder das Erstellungsdatum einer Datei (Format 1) oder, wenn ein Zeittyp angegeben ist (Format 2), das Erstellungsdatum, das Datum des letzten Zugriffs oder das Datum der letzten Änderung zurückgegeben.

Funktionssyntax:

GetFileTime(filename as String) as DateTime
GetFileTime(filename as String, type as Integer) as DateTime
filename (Dateiname)

Gibt den Namen der zu untersuchenden Datei an.

type

Der von der Datei abzurufende Zeittyp.

Folgende Werte sind gültig:

0 Datum und Uhrzeit der Erstellung.

1 Datum und Uhrzeit des letzten Zugriffs.

2 Datum und Uhrzeit der letzten Änderung (Standard).

Die DateTime-Struktur ist folgendermaßen definiert:

Type DateTime
Year as Integer
Month as Integer
Day as Integer
DayOfWeek as Integer
Hour as Integer
Minute as Integer
Second as Integer
End Type

Bei erfolgreicher Ausführung gibt die Funktion das Datum und die Uhrzeit der Erstellung einer Datei (Format 1) oder den für den Typ definierten Zeittyp (Format 2) zurück. Wenn die Datei nicht existiert, wird eine DateTime-Struktur zurückgegeben, deren Elemente alle auf -1 gesetzt sind.

Beispiel:

dim size as integer
dim time as DateTime
dim out as string

size=GetFileSize("C:\AUTOEXEC.BAT")
if (size<>-1) then
	 out="Dateigröße: "+chr(9)+chr(9)+str(size)+" Byte"+ chr(10)
	 time=GetFileTime("C:\AUTOEXEC.BAT")
	 out=out+"Erstellungsdatum: "+chr(9)+str(time.month)+"/"+str(time.day)+"/"+str(time.year)
	 out=out+" "+str(time.hour)+":"+str(time.minute)+" "
	 MsgBox("Informationen über C:\AUTOEXEC.BAT"+chr(10)+chr(10)+out)

else
	 MsgBox("C:\AUTOEXEC.BAT nicht gefunden")
end if
end: