Application.FileSearch geht nicht unter 2007
ray
mein folgender Code funktioniert nach der Umstellung auf E2007 nicht mehr, da da FileSearch nicht mehr unterstützt wird.
Kann mir jemand beim umbauen helfen, damit es unter 07 auch geht?
Sub objektanzeigen2()
Application.ScreenUpdating = False
Worksheets("outputFiles").Select
Set Fs = Application.FileSearch
inp1xx = Worksheets("datenOutput").Range("e28").Value
With Fs
.LookIn = "F:\MV\" & inp1xx
.SearchSubFolders = True
.FileName = "*.*" 'alle
If .Execute > 0 Then
MsgBox "Ich habe " & .FoundFiles.Count & " Dateien gefunden"
Dim iMaxx
iMaxx = Cells(Rows.Count, 1).End(xlUp).Row
For I = 1 To .FoundFiles.Count
Worksheets("outputFiles").Cells(I, 1).Value = .FoundFiles(I)
Next I
Else
MsgBox "Es wurden keine Dateien gefunden"
End If
End With
'sortieren und in der ListBox auf frmFiles anzeigen lassen
Sheets("outputFiles").Select
Cells.Select
Selection.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("a1").Select
'sortieren ende
frmFiles.Show
End
Sub
Viele Grüße aus Hamburg
Ray