D
Douby
Guest
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
___________________________________________________________
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
___________________________________________________________