Mein Programm soll beim ausführen kontrollieren, ob es 3 Unterordner mit bestimmten Namen gibt, da das makro sonst nicht fehlerfrei ausgeführt werden kann. Wie kann ich das machen?
Gruß&Dank
der alex
Sub test()
If Dir("C:\TEST\") <> "" Then
MsgBox "Verzeichnis is da"
Else
MsgBox "Verzeichnis is nicht da"
End If
End Sub
If Dir("C:\programme",vbDirectory)"" Then
MsgBox "Vorhanden!"
End If
Gruß Matthias
Sub Ordner()
If Dir("C:\Test", vbDirectory) = "" Then
MkDir ("C:\Test")
End If
If Dir("C:\Test\1", vbDirectory) = "" Then
MkDir ("C:\Test\1")
End If
If Dir("C:\Test\2", vbDirectory) = "" Then
MkDir ("C:\Test\2")
End If
If Dir("C:\Test\3", vbDirectory) = "" Then
MkDir ("C:\Test\3")
End If
End Sub