Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1228to1232
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
Inhaltsverzeichnis

Dateien aus verzeichniss auslesen (incl. Unterver.

Dateien aus verzeichniss auslesen (incl. Unterver.
Alex
HAllo Forum,
Ich möchte z.B alle PDF Dateien aus einem Verzeichniss incl. Unterverzeichnissen in ein Array einlesen.
Leider komme ich mit der Suche nicht zurecht.
Kann jemand helfen ?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateien aus verzeichniss auslesen (incl. Unterver.
15.09.2011 15:14:05
Rudi
Hallo,
Dateien werden in arrFiles eingelesen

Option Explicit
Sub Alex()
Dim arrFiles
Const strTyp As String = ".pdf"
DateiListe arrFiles, strTyp
End Sub
Sub DateiListe(arrFiles, ByVal strTyp As String)
Dim FSO As Object, oFolder As Object, oDictF As Object
Dim strFolder As String
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Ordner wählen"
.AllowMultiSelect = False
If .Show = -1 Then
strFolder = .SelectedItems(1)
End If
End With
If strFolder = "" Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(strFolder)
Set oDictF = CreateObject("Scripting.dictionary")
prcFiles oFolder, oDictF, strTyp
prcSubFolders oFolder, oDictF, strTyp
arrFiles = oDictF.Keys
End Sub
Sub prcFiles(oFolder, oDictF, strTyp)
Dim oFile As Object
For Each oFile In oFolder.Files
If Right(oFile.Name, 4) = strTyp Then oDictF(oFile.Path) = 0
Next
End Sub
Sub prcSubFolders(oFolder, oDictF, strTyp)
Dim oSubFolder As Object
For Each oSubFolder In oFolder.SubFolders
prcFiles oSubFolder, oDictF, strTyp
prcSubFolders oSubFolder, oDictF, strTyp
Next
End Sub
Gruß
Rudi
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige