File search von 2003
2003
ich komme trotz der vielen schon gestellten Fragen nicht ganz weiter.
Kann mir jemand folgenden Code ändern so dass es eben bei excel 2007 läüft?
Danke Gruss volker
Sub BlätterLöschen()
'Dateien öffnen
Dim wks As Worksheet
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
'Application.ScreenUpdating= false
Application.DisplayAlerts = False
Set fs = Application.FileSearch
lRow = 3
'lRow = InputBox("Zeilen Nr. angeben")
With fs
.SearchSubFolders = True 'mit Unterordner wenn =True
.Filename = "*.xls"
.LookIn = Range("D1").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
'Cells(lRow, 1).Value = .FoundFiles(iCounter)