Rapport de message :*
 

Re: VBA lire les propriétés de fichiers fermés (BuiltinDocumentProperties)

Titre du sujet : Re: VBA lire les propriétés de fichiers fermés (BuiltinDocumentProperties)
par michel_m le 20/09/2007 19:21:34

Bonjour Luki , Didier, le forum

Une solution "au cas où" qqn aurait le m^ pb:

Private fich As String

Sub lister_fichiers()
chemin = "F:documentsexcelessai" '  à adapter
ChDir chemin
fich = Dir("*.doc")
 While fich <> ""
        fich = chemin & fich
        lire_propriétés
        fich = Dir
Wend
End Sub

Sub lire_propriétés()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fichier = objFSO.GetFile(fich)
Debug.Print "Date création: " & fichier.DateCreated
Debug.Print "Dernier accès: " & fichier.DateLastAccessed
Debug.Print "Dernière modif: " & fichier.DateLastModified
Debug.Print "Nom: " & fichier.Name
Debug.Print "Size: " & fichier.Size
Debug.Print "Type: " & fichier.Type
End Sub



si on veut connaitre les attributs il faut utiliser la propriété "attributes" de l'objet (ici, fichier)qui retourne un integer:

1: lecture seule
2: fichier caché

et pour d'autre recherches:
4:fichier systeme

bref! "yaka" faire une boucle