Table des matières
FichierDateHeure Description
Renvoie la date et l'heure de création ou de dernière modification d'un fichier.
Exemple simple de FileDateTime
Supposons qu'un fichier "D:\test.txt" a été modifié pour la dernière fois le 21/10/2019 à 9:41:30 .
1 | MsgBox FileDateTime("D:\test.txt") |
Cela reviendra le 21/10/2019 à 9:41:30.
Syntaxe FileDateTime
Dans l'éditeur VBA, vous pouvez taper "FileDateTime(" pour voir la syntaxe de la fonction FileDateTime :
La fonction FileDateTime contient un argument :
Nom du chemin : Une expression de chaîne représentant un fichier/dossier/lecteur.
Exemples de fonction Excel VBA FileDateTime
Pour répertorier l'heure de la dernière modification du dossier et des fichiers sur le lecteur C, vous pouvez utiliser le code suivant.
123456789101112131415161718192021222324 | Sous-répertoire_Exemple()Dim fileName As StringDim fullName en tant que chaîneDim rng As RangeDiminuer en tant qu'entierDéfinir rng = Range("A1")fileName = Dir("C:\", vbDirectory)je = 1FairefullName = "C:\" & fileNamerng.Offset(i, 0) = nom de fichierrng.Offset(i, 1) = FileDateTime(fullName)rng.Offset(i, 2) = FileLen(fullName)rng.Offset(i, 3) = GetAttr(fullName)fileName = DirSi fileName = "" Alors Quitter Doje = je + 1BoucleFin du sous-marin |
Le résultat sera similaire à ce qui suit.