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