Dazu kannst Du eine Funktion...
07.01.2017 13:09:43
Case
Hallo Peter, :-)
... nutzen, die nachfolgend aufgeführt ist - und Deinen Anforderungen entspricht: ;-)
Option Explicit
Function fncFolderSearch(ByVal strFolder As String, _
Optional strTMP As String = "C:\Temp\") As String
Dim strAll() As String
strTMP = IIf(Right(strTMP, 1) "\", strTMP & "\", strTMP)
strAll = Split(CreateObject("Wscript.Shell").exec _
("CMD /C Dir Dir /S /B /AD " & """" & strTMP & _
strFolder & """" & """").stdout.readall, vbCrLf)
On Error Resume Next
fncFolderSearch = Left(strAll(0), (InStrRev(strAll(0), "\") - 1))
If Err.Number = 9 Then
fncFolderSearch = "Kein Ordner gefunden!"
End If
On Error GoTo 0
End Function
Wenn der Ordner in A1 steht, dann einfach in B1 folgendes eingeben:
=fncFolderSearch(A1)
Was musst Du anpassen, damit es für Dich läuft?
In dieser Codezeile...
Optional strTMP As String = "C:\Temp\") As String
... musst Du "Temp" durch "Ordner1" ersetzen - bezogen auf Dein Beispiel.
Also den ersten Ordner nach C:\ - sonst würde er ja das komplette Laufwerk durchsuchen. Geht natürlich auch, dauert aber dann etwas länger. ;-)
Willst Du es in einem bestehenden Makro nutzen, dann rufe die Funktion einfach auf:
Sub Main()
ActiveSheet.Range("C1").Value = fncFolderSearch("Dezember")
End Sub
Hier schreibe ich das Ergebnis in "C1". Statt "Dezember" natürlich Dein Ordnername, oder eben eine Variable bzw. eine Zelle.
Wird der Ordner nicht gefunden wird "Kein Ordner gefunden!" ausgegeben. ;-)
Servus
Case