Récupérer la date du dernier fichier modifié dans un dossier
Résolu
Potatoooo
-
Potatooo -
Potatooo -
A voir également:
- Récupérer la date du dernier fichier modifié dans un dossier
- Comment réduire la taille d'un fichier - Guide
- Fichier bin - Guide
- Fichier .dat - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
3 réponses
Pour récupérer la date de dernière modification du fichier, il suffit d'utiliser la classe "FileSystemObject"
Pour récupérer cette classe, ajouter la référence Microsoft scripting runtime.
Pour récupérer cette classe, ajouter la référence Microsoft scripting runtime.
' Ajouter la référence Microsoft scripting runtime
Dim fso As New FileSystemObject
Dim fichier As Object
Dim date_modif as Date
Set fichier = fso.GetFile("chemin + nom_fichier")
date_modif = fichier.DateLastModified
' Ajouter la référence Microsoft scripting runtime
Dim fso As New FileSystemObject
Dim dossier As Object
Dim fichier As Object
Dim date_dernière_modif As Date
date_dernière_modif = Empty
Set dossier = fso.GetFolder("E:\Documents")
For Each fichier In dossier.Files
If fichier.DateLastModified > date_dernière_modif Then date_dernière_modif = fichier.DateLastModified
Next
Je sais récupérer la date de dernière modification d'un fichier, ce que je ne sais pas faire c'est récupérer uniquement la date du fichier modifié le plus récemment contenu dans un dossier (comme expliqué plus haut).
En gros, je demande de l'aide pour un bout de code qui compare les dates de dernière modification des fichiers d'un dossier donné (ex: e:\documents) et me donne uniquement la date du fichier modifié le plus récemment.