Fileseach Office 2007
16.04.2009 12:37:13
erich
hab ein problem mit FileSearch da es dieses mit Office 2007 nicht meht gibt.
Habe folgenden Code:
Sub DateienAuflisten()
Dim lngAkt As Long
Dim rngBereich As Range
Dim rngZelle As Range
Cells.Select
Selection.ClearContents
'Den Pfad ausbessern!!!!
Verzeichnis = "O:\Lackiererei_w6\50_Produktion\100_TR_340\080_Methodiker\ _
0804_Verwaltung_Methodik\08042_Verwaltung_Schoierer\04201_Dichtheit"
Cells(1, 2).Value = Verzeichnis
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.SearchSubFolders = False
.FileType = msoFileTypeOfficeFiles
.Execute
For lngAkt = 1 To .FoundFiles.Count
Cells(lngAkt, 1) = Mid(.FoundFiles.Item(lngAkt), Len(Verzeichnis) + 1)
Next lngAkt
End With
UsfAUSB.Show
End Sub
gibt es ersatz für Filesearch, oder wie muss ich meinen Code umschreiben dass er ach unter Offiche 2007 funktioniert?
ich bitte um eure unterstützung
Gruß
Erich