Connaitre l'auteur d'un fichier

[Douby]

Bonjour,
Dans la macro suivante, j'utilise Filesearch et Foundfiles pour lister les fichiers de type .sql de mon arborescence.

Je ramène le nom du fichier, la date et la taille. Jusque là tout est OK.

Par contre, j'aimerais ramener l'auteur du fichier. Et là... je sèche.

Pourriez-vous m'aider.

Plein de mercis
Douby

_________________________________________________________

Sub findFiles2()
curr_path = ActiveWorkbook.Path
With Application.FileSearch
.NewSearch: .LookIn = curr_path: .SearchSubFolders = True: .MatchTextExactly = False: .FileType = msoFileTypeAllFiles: .Filename = "*.sql"
If .Execute(msoSortOrderDescending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Cells(i, 2).Value = FileDateTime(.FoundFiles(i))
Cells(i, 3).Value = FileLen(.FoundFiles(i))
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
___________________________________________________________