Ordner suchen in Verzeichnis Pfad ausgab

Andreas · 2021-10-19T16:02:38+00:00

Hallo, ich habe noch eine Frage bezüglich dem Durchsuchen von Ordnern. Überall finde ich, wie man Dateien in Ordnern suchen kann. Ich würde aber gerne per VBA ein Verzeichnis (Z:\Test) durchsuchen, das mir einen speziellen Ordner finden soll. Dazu soll er alle Unterordner durchsuchen, bis er den Ordner gefunden hat. Es gibt nur einen Ordner, der gefunden werden kann. Und dieser ORdner hat auch einen definierten Namen (zb Log). Kann mir jemand helfen, wie man das per VBA so hinbekommt, dass mir hinterher als msgbox der Pfad angezeigt wird, in dem sich der LOG befindet?

Hallo Andreas,
wenn es nciht unbedingt mit VBA gemacht werden soll, dann so:
_ DOS-Fenster öffnen (Win+r, "cmd")
_ auf dem Start-Verzeichnis navigieren ( cd Verzeichnisname)
_ Befehl anstossen: dir /s /ad |find "log"
Mit VBA müsste man rekursiv eingehen:


Option Explicit
'unter Anbindung vom Microsoft Scripting Runtime
' ("Extras", "Verweise...", "Microsoft Scripting Runtime" anhacken)
Private FSO As FileSystemObject
Sub Verzeichnis_suchen()
Dim Ergebnis As String
Const StartVerzeichnis = "Z:\Test"
Ergebnis = Verzeichnis_auflisten(StartVerzeichnis)
Debug.Print Ergebnis
MsgBox Ergebnis, vbOKOnly, "Ergebnis"
End Sub
Function Verzeichnis_auflisten(Pfad As String, Optional VerzName As String = "Log") As String
Dim BasisVerz As Folder
Dim SubVerz As Folder
Dim Ergebnis As String
'Verzeichnis holen, wenn nicht vorhanden, rausspringen
Set BasisVerz = FSO.GetFolder(Path)
If BasisVerz Is Nothing Then Exit Function
'Unterverzeichnis durchgehen (Rekursiv)
For Each SubVerz In BasisVerz.SubFolders
Ergebnis = Verzeichnis_auflisten(SubVerz.Path)
If InStr(1, VerzName, Ergebnis, vbTextCompare) Then
Verzeichnis_auflisten = Ergebnis
Exit Function
End If
Next SubVerz
End Function

VG
Yal

Hallo Andreas,
teste mal:


Option Explicit
Public Sub Beispiel()
Const FOLDER_PATH As String = "Z:\Test\"
Dim strFolder As String
strFolder = GetFolder(FOLDER_PATH, "Log")
If strFolder = vbNullString Then
Call MsgBox("Nicht gefunden")
Else
Call MsgBox(strFolder)
End If
End Sub
Private Function GetFolder(ByVal pvstrPath As String, ByVal pvstrFoldername As String) As String
Dim astrFolders() As String
Dim strFolder As String, strPath As String
Dim ialngIndex1 As Long, ialngIndex2 As Long
strPath = pvstrPath
Do
strFolder = Dir$(PathName:=strPath & "*", Attributes:=vbDirectory)
Do Until strFolder = vbNullString
If strFolder  "." And strFolder  ".." Then
If GetAttr(PathName:=strPath & strFolder) And vbDirectory Then
If strFolder = pvstrFoldername Then
GetFolder = strPath & strFolder
Exit Function
End If
ReDim Preserve astrFolders(0 To ialngIndex1)
astrFolders(ialngIndex1) = strPath & strFolder & "\"
ialngIndex1 = ialngIndex1 + 1
End If
End If
strFolder = Dir$
Loop
If ialngIndex1 = ialngIndex2 Then Exit Do
strPath = astrFolders(ialngIndex2)
ialngIndex2 = ialngIndex2 + 1
Loop
End Function

Gruß
Nepumuk

Ordner suchen in Verzeichnis Pfad ausgab

Forumthread: Ordner suchen in Verzeichnis Pfad ausgab

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Ordner im Verzeichnis per VBA finden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Ordner suchen in Verzeichnis Pfad ausgab

Forumthread: Ordner suchen in Verzeichnis Pfad ausgab

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Ordner im Verzeichnis per VBA finden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread