Files suchen, auch in Unterverzeichnissen

Hallo Forum,
in einem fertigen Projekt habe ich nun festgestellt, dass meine Lese-Routine (kopiert aus dem Internet, (woher: ?)) zwar viele Files findet. Aber sie hat einige Unterverzichnisse einfach vergessen.
Ich habe mir jetzt ein paar Beispiele aus dem Internet heruntergeladen; keines davon hat funktioniert. Es gab immer wieder Abbrüche. Und eine Routine hat sogar meinen Papierkorb durchsucht.
Ich suche eine Leseroutine, die bestimmte (möglichst generische) File-Typen (z. B. "XLS*") sucht und deren Pfad und Namen in ein Tabellenblatt schreibt. Dabei sollten natürlich auch alle Unterverzeichnisse durchsucht werden.

Wer kann mir ein einfaches und überschaubares Beispiel bereitstellen?
Danke im Voraus.
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Fso, Verzeichnis, Unterverzeichnis, Datei Dim Stapel As Collection Set Fso = CreateObject("Scripting.FileSystemObject") Set Stapel = New Collection Stapel.Add Fso.GetFolder("DeinStartPfad") 'C:\Test\... o.Ä. Do While Stapel.Count > 0 Set Verzeichnis = Stapel(1) Stapel.Remove 1 For Each Unterverzeichnis In Verzeichnis.SubFolders Stapel.Add Unterverzeichnis Next oSubfolder For Each Datei In Verzeichnis.Files If Datei.Name Like "*.pdf" Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Datei.Name Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Datei.Path End If Next oFile Loop End Sub

Sub a() Dim Fso, Verzeichnis, Unterverzeichnis, Datei Dim Stapel As Collection Set Fso = CreateObject("Scripting.FileSystemObject") Set Stapel = New Collection Stapel.Add Fso.GetFolder("DeinStartPfad") 'C:\Test\... o.Ä. Do While Stapel.Count > 0 Set Verzeichnis = Stapel(1) Stapel.Remove 1 For Each Unterverzeichnis In Verzeichnis.SubFolders Stapel.Add Unterverzeichnis Next Unterverzeichnis For Each Datei In Verzeichnis.Files If Datei.Name Like "*.pdf" Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Datei.Name Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Datei.Path End If Next Datei Loop End Sub

Hallo,
es wäre schön wenn du dann auch diese kopierten Codes uns hier zeigst...
Für sowas ist VBS die bessere Wahl.
Rekursive Datei Suche kann ewig dauern, wenn der nutzer auf die tolle
Idee kommt als Start-Pfad C:\ anzugeben.
Was genau für dich ein einfach und überschaubares Beispiel ist weiß ich nicht,
wenn dir der Code unten nicht einfach und überschaubar genug ist, dann geb bescheid.

Private fso As Object, folder_ As Object, sub_ As Object, file_ As Object
Private FoundFiles As String
Sub test()
Set fso = CreateObject("Scripting.FileSystemObject")
File_Search "C:\Users\max.bader\Desktop"
Dim tmp() As String
tmp = Split(FoundFiles, ";")
Dim varItem
For Each varItem In tmp
Debug.Print varItem
Next varItem
End Sub
Private Function File_Search(ByVal Path_ As String) As String
Set folder_ = fso.GetFolder(Path_)
On Error Resume Next
For Each file_ In sub_.Files
If file_.Name  vbNullString Then
If InStr(1, file_.Name, ".xl", vbTextCompare) > 0 Then
FoundFiles = FoundFiles & file_.Path & ";"
End If
End If
Next file_
For Each sub_ In folder_.Subfolders
File_Search sub_.Path
Next sub_
End Function

Beliebteste Forumthreads (12 Monate)

Files suchen, auch in Unterverzeichnissen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread