Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Unterverzeichnisse eines Verzeichnisses einlesen

Unterverzeichnisse eines Verzeichnisses einlesen
28.07.2003 11:39:59
Winfried Mommers
Hallo Freaks,
wie kann ich denn aus einem bestimmten Verzeichnis z.B. alle Dateien mit
der Endung ".xls" aus diesem Ordenr und auch aus allen Unterverzeichnissen
diese Ordners herauslesen, ohne die Namen der Unterverzeichnisse zu kennnen (und wie viele es sind)???
Vielen Dank
Winfried

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterverzeichnisse eines Verzeichnisses einlesen
28.07.2003 11:51:55
Knut
Schau mal unter Application.FileSearch
Knut

AW: Unterverzeichnisse eines Verzeichnisses einlesen
28.07.2003 11:52:29
Nepumuk
Hallo Winfried,
so geht's:

Option Explicit
Public Sub test()
Dim index As Long
With Application.FileSearch
.LookIn = "D:\Eigene Dateien\"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
If .Execute > 0 Then
For index = 1 To .FoundFiles.Count
MsgBox .FoundFiles(index)
Next
End If
End With
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige
AW: Unterverzeichnisse eines Verzeichnisses einlesen
28.07.2003 12:54:32
Winfried Mommers
Hallo Nepumuk,
das mit den "vorgegebenen" Schlüsselwortern" wie z.B. TypeExcelWorkbooks oder
TypeAllFiles ist ja gut und schön. Wie sieht's denn aus, wenn ich z.B. nur Dateien mit der Endung ".ged" suche ???
Vielen Dank
Winfried

AW: Unterverzeichnisse eines Verzeichnisses einlesen
28.07.2003 12:57:58
Nepumuk
Hallo Winfried,
dann an Stelle von:
.FileType = msoFileTypeExcelWorkbooks
einfach:
.Filename = "*.ged"
Gruß
Nepumuk

Supppper !! Vielen Dank
28.07.2003 13:02:33
Winfried Mommers
Danke

228 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige