Dim strPath As String
strPath = "I:\EP Engineering Planung\Projekte\2021\2021_07\2120123-ABC*"
Debug.Print Dir$(strPath, vbDirectory)
Sollte er etwas finden, das dem Pattern entspricht, dann bekommt man den vollständigen Namen des Verzeichnisses (also z.B. "2120123-ABC Projekt XYZ Ort RST").
|