Dateien auflisten
09.09.2005 11:48:42
Rudi
Allerdings wenn ich die InputBox abbreche, bekomme ich einen Laufzeitfehler mit diesem Hinweis:
.LookIn = Verzeichnis
wie kann man das abstellen?
Hier ist der Code:
Sub DateienAuflisten()
Sheets("Wvorlage").Select
Dim lngAkt As Long
Dim rngBereich As Range
Dim rngZelle As Range
Verzeichnis = InputBox(("Bitte Pfad eingeben oder den Vorgegebenen übernehmen!"), "Verzeichnisse in Tabelle1", "C:\wvorlage\")
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For lngAkt = 3 To .FoundFiles.Count
Cells(lngAkt, 2) = Mid(.FoundFiles.Item(lngAkt), Len(Verzeichnis) + 1)
Next lngAkt
End With
End Sub
gruss rudiflei