Guten Morgen zusammen,
ich habe von Nepomuk einen Code erhalten, der mir in einem Laufwerk meiner Wahl einen Ordner erstellt.
Das klappt hervorragend.
Nur wenn ich ich in diesem erstellten Ordner noch einen Unterordner erstellen will geht nichts mehr.
Der Code ist wie folgt:
Private Sub CommandButton2_Click()
'Unterordner wird erstellt
Dim neuOrd As String
Dim neuUntOrd As String
Dim laufw As String
neuOrd = txtOrd.Value
neuUntOrd = txtUntOrd.Value
laufw = comboLaufw.Value
Dim FsyObjekt2 As Object, Ordner2 As String
Ordner2 = " " & laufw & ":\" & neuOrd & "\" & neuUntOrd & ""
Set FsyObjekt2 = CreateObject("Scripting.FileSystemObject")
If Not FsyObjekt2.FolderExists(Ordner2) Then FsyObjekt2.CreateFolder (Ordner2)
'HIER WIRD DER FEHLER ANGEZEIGT !!!
Wenn ich \" & neuUntOrdn & " weglasse, geht es also.
Die Fehlermedlung sagt :"Dateiname oder - nummer falsch"
Kann mir jemand sagen, wie ich es richtig mache?
Vielen Dank im voraus
Michael