Guten Abend,
ich möchte gern im aktuellen Verzeichnis im vorhandenen einen Ordner erstellen.
Habe dies gefunden:
Dim strDateiName As String
Dim strDateiExistiert As String
Stop
strDateiName = "Lager1"
strDateiExistiert = Dir(strDateiName)
If strDateiExistiert = "" Then
MsgBox "Die ausgewählte Datei existiert nicht"
MkDir (strDateiName)
Else
MsgBox "Die ausgewählte Datei existiert"
End If
klappt allerdings nicht, woran liegt es ?
gr wolfgang