Vorheriges Thema: GetFileAttributes - Abrufen der DateiattributeNächstes Thema: GetFileStoreFree, GetFileStoreSize und GetFileStoreUsage - Abrufen des freien, gesamten und belegten Speicherplatzes


GetFileSize - Abrufen der Dateigröße

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

Die Funktion "GetFileSize" ruft die Dateigröße in Byte ab.

Funktionssyntax:

GetFileSize(filename as String) as Integer
filename (Dateiname)

Gibt den Pfad der Datei an.

Es wird die Größe in Byte zurückgegeben.

Beispiel:

In diesem Beispiel werden die Größe und das Erstellungsdatum der Datei "AUTOEXEC.BAT" abgerufen.

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: