Rubrique précédente: GetFileStoreFree, GetFileStoreSize et GetFileStoreUsage – Renvoyer l'espace disponible, l'espace total et l'espace utiliséRubrique suivante: GetLongFileName – Convertir un nom de fichier court en un nom de fichier long


GetFileTime – Renvoyer la date de création du fichier, la date de dernier accès ou la date de dernière modification

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

La fonction GetFileTime renvoie la date de création d'un fichier (format 1), ou, si le type d'heure est indiqué (format 2), la date de création, la date du dernier accès ou la date de dernière modification.

Format de la fonction :

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

Indique le nom du fichier à examiner.

type

Type d'heure de fichier à extraire.

Les valeurs suivantes sont autorisées :

0 Date et heure de la création.

1 Date et heure du dernier accès.

2 Date et heure de la dernière modification (par défaut).

La structure DateTime est définie ainsi :

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

Une fois qu'elle a réussi, la fonction renvoie la date et l'heure de création d'un fichier (format 1) ou le type d'heure spécifié (format 2). Si le fichier n'existe pas, elle renvoie une structure DateTime avec tous les membres définis à -1.

Exemple :

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: