Récuperer des informations sur des fichiers. [Résolu]

Signaler
Messages postés
100
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
1 février 2009
-
Messages postés
100
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
1 février 2009
-
Bonjour à tous,

J'ai encore un léger problème.
Comment peut on récupérer les différentes propriétés d'un fichier?
Par exemple:
la date de création
la date de dernière modification .....

Merci pour toutes vos réponses
EPS32HAY :)

3 réponses

Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
14
Salut,

J'utilise ce genre de truc pour tester la date de création d'un fichier :

Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(specfichier)
    s = "Fichier créé le : " & f.DateCreated


Ensuite pour les propriétés tu as :

.size
.attributes
.datelastaccessed
.datelastmodified

et y'en a d'autre comme pour déterminer le path, le dir, le nom, etc...

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
14
Une soluce clé en main :

En VB6, faut cocher "Microsoft Scripting Runtime" dans "Projet/Références..."

Dim fso As FileSystemObject
Dim a, b, c
Dim msg As String

'Créer le FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

a = fso.GetFile("c:\autoexec.bat").DateCreated
b = fso.GetFile("c:\autoexec.bat").DateLastAccessed
c = fso.GetFile("c:\autoexec.bat").DateLastModified
msg "Date création " & a & vbCrLfmsg msg & "Date dernier accès " & b & vbCrLfmsg msg & "Date dernière modif " & c & vbCrLf

MsgBox msg


Bien sûr, à la place de c:\autoexec.bat tu mets le chemin et nom de ton fichier.

Et puis, cboulas t'indique aussi d'autres possibilités.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
100
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
1 février 2009

Merci bcp, ca marche

bonne prog
EPS32HAY :)