Rubrique précédente: GetFileAttributes – Renvoyer les attributs de fichiersRubrique suivante: GetFileStoreFree, GetFileStoreSize et GetFileStoreUsage – Renvoyer l'espace disponible, l'espace total et l'espace utilisé


GetFileSize – Renvoyer la taille du fichier

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction GetFileSize donne la taille du fichier en octets.

Format de la fonction :

GetFileSize(filename as String) as Integer
nom_fichier

Identifie le chemin du fichier.

La valeur renvoyée correspond à la quantité en octets.

Exemple :

Cet exemple indique la taille et la date de création du fichier AUTOEXEC.BAT.

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

size=GetFileSize("C:\AUTOEXEC.BAT")
if (size<>-1) then
	 out="Taille du fichier : "+chr(9)+chr(9)+str(size)+" octets"+ chr(10)
	 time=GetFileTime("C:\AUTOEXEC.BAT")
	 out=out+"Date de création : "+chr(9)+str(time.month)+"/"+str(time.day)+"/"+str(time.year)
	 out=out+" "+str(time.hour)+":"+str(time.minute)+" "
	 MsgBox("Informations sur C:\AUTOEXEC.BAT"+chr(10)+chr(10)+out)

else
	 MsgBox("C:\AUTOEXEC.BAT est introuvable")
end if
end: