comment obtenir l'auteur d'un document après un 'foundfiles(n)'

Personne n'a de réponse ??...
Merci

J'ai une base documentation qui scanne un disque et récupère les noms de
fichiers que je classe ensuite. Mais je voudrais en plus l'auteur du des
documents , la date de création et la date de modification.
Comment est-ce intégrable ici :
If .Execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFile = .FoundFiles(intFile)
strFile = LCase(strFile)
fic = Dir(strFile)

Select Case Right(fic, 3)
Case "doc", "xls", "ppt", "vsd", "zip", "rtf", "pdf"
cmd = "INSERT INTO " & strTable & "(chemin,file) VALUES
( """ & strFile & """ , """ & fic & """ ) ; "
DoCmd.RunSQL cmd, False
Case Else
End Select
Next
End If

Merci d'avance de vos réponses
( pour info,je ne suis pas l'auteur de ce script que j'ai trouvé sur
Internet ).

Salut,

"Daniel"
| J'ai une base documentation qui scanne un disque et récupère les noms de
| fichiers que je classe ensuite. Mais je voudrais en plus l'auteur du des
| documents , la date de création et la date de modification.
| Comment est-ce intégrable ici :
| If .Execute > 0 Then
| For intFile = 1 To .FoundFiles.Count
| strFile = .FoundFiles(intFile)
| strFile = LCase(strFile)
| fic = Dir(strFile)
|
| Select Case Right(fic, 3)
| Case "doc", "xls", "ppt", "vsd", "zip", "rtf", "pdf"
| cmd = "INSERT INTO " & strTable & "(chemin,file) VALUES
| ( """ & strFile & """ , """ & fic & """ ) ; "
| DoCmd.RunSQL cmd, False
| Case Else
| End Select
| Next
| End If


Un auteur d'un document est un vision "Word" ou du moins (MS) Office...
Car, qui est l'auteur des images qui traine sur un DD ?

Et cela n'a rien à voir avec la attributs des fichiers cités,
tu dois regarder les propriétés de ces documents.

Une piste ici :
http://www.mvps.org/accessfr/modules/mdl0003.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/