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
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:
|
Copyright © 2014 CA Technologies.
Alle Rechte vorbehalten.
|
|