Application.FileSearch - Kriterium Autor?
14.10.2003 18:41:25
Elena
Ich möchte in einem Ordner nach Dateien eines bestimmten Autors suchen und diese in einem Excel-File ausgeben. Mit meinen beschränkten VBA-Kenntnissen kann ich den Code, den ich gefunden habe und soweit auch gut läuft, nicht anpassen. Kann mir jemand helfen? Oder kann man gar nicht nach dem Autor suchen?
Vielen Dank für Eure Bemühungen
Liebe Grüsse
Elena
Sub DateienAuflisten()
Dim lngAkt As Long
Dim rngBereich As Range
Dim rngZelle As Range
Const Verzeichnis = "C:\Dokumente und Einstellungen\Elena\Eigene
Dateien\Test\1"
'Verzeichnis = InputBox(("Bitte Pfad eingeben!"), "Verzeichnisse in Tabelle1", "C:\test\")
'Verzeichnis = ThisWorkbook.Path
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
.TextOrProperty = "Claudia"
.MatchTextExactly = True
'Hier den DateiTyp einstellen!
.Execute
'MsgBox .FoundFiles.Count
For lngAkt = 1 To .FoundFiles.Count
Cells(lngAkt, 1) = Mid(.FoundFiles.Item(lngAkt), Len(Verzeichnis) + 1)
Next lngAkt
End With
End Sub
PS: sucht so nach Claudia (Autor), aber das geht nur solange kein Dokument im Text Claudia geschrieben hat