Thema: Application.FileSearch in Office 2007 | Herbers Excel-Forum

Hallo zusammen,
haben soeben office 2007 installiert und nun läuft folgender code nicht mehr:
Dim fs As FileSearch
Dim iCounter As Integer
Dim sPath As String
sPath = "C:\Dokumente und Einstellungen\......." & UserForm3.ComboBox1 'ThisWorkbook.path
Set fs = Application.FileSearch
UserForm3.ListBox4.Clear
With fs
.LookIn = sPath
.FileType = msoFileTypeAllFiles
'.FileType = pdf
.Execute
j = 1
For iCounter = 1 To .FoundFiles.Count
Pfad = .FoundFiles(iCounter)
pfada = Pfad
woran kann das liegen? gibt es eine alternative? jemand ne idee?
danke für die hilfe
lars

Hallo
... weil das FileSearchObject nicht mehr unterstütz wird.
Schau mal:
http://www.google.ch/search?hl=de&source=hp&q=filesearch+2007+site%3Aherber.de&btnG=Google-Suche&meta=
Gruss Rainer

Hallo
danke für die schnelle hilfe. bin jetzt nicht so die leuchte in vba. der code diente dazu, die dateien eines ordner in UserForm3.ComboBox1 einzulesen.
wie kann man das jetzt machen?
danke!
grüße
lars

hi,
mit dem link von rainer, ein bisschen suchen... :-)
probier mal das
gruß
robert
https://www.herber.de/bbs/user/65769.xls

Hallo
Bei Deinem Level solltest du doch ein wenig lesen können !? ;-)
Gleich im ersten Beitrag steht der Workaround für Dein Problem.
Gruss Rainer

Hallo Lars,
siehe Dir das Beispiel an http://hajo-excel.de/chCounter3/getfile.php?id=21