Langage de script Desktop Management › Fonctions › Fonctions du système de fichiers › GetFileTime – Renvoyer la date de création du fichier, la date de dernier accès ou la date de dernière modification

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.

Cette fonction de contenu de fichier présente le format suivant :

GetFileTime(filename as String) as DateTime

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

filename

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 : Fonction GetFileTime

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: