Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien auflisten

Forumthread: Dateien auflisten

Dateien auflisten
09.09.2005 11:48:42
Rudi
Ich liste Dateien eines bestimmten Verzeichnisses auf. Das klappt soweit prima.
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien auflisten
09.09.2005 12:02:07
IngGi
Hallo Rudi,
beim Abbruch gibt InputBox False zurück. Das kannst du abfragen.

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\")
If Not Verzeichnis = False Then
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 If
End Sub
Gruß Ingolf
Anzeige
AW: Dateien auflisten
09.09.2005 12:03:02
Dominic
Hallo Rudi,
So:
If Verzeichnis = False Then Exit Sub vor
With Application.FileSearch
Gruß
Dominic
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige