möchte gern mit vba die Explorer Suchfunktion starten. Gesucht soll nach einem Ordner, welche ich vorher per Makro ermittelt habe. (Name steht in einer Zelle)
Gruss
Bruno
Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\", vbDirectory) "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
Set Fso = Nothing