AW: Ordner suchen in Verzeichnis Pfad ausgab
19.10.2021 16:28:53
Yal
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