Guten Morgen,
ich habe immer noch eine Problem, einen Ordner und einen untergeordneten Ordner zu erstellen.
Als erstes wird der der übvergeordnete Ordner mit folgendem Code erstellt:
Private Sub CommandButton1_Click()
'übergeordneter Ordner
Dim neuOrd As String
Dim laufw As String
neuOrd = txtOrd.Value
neuUntOrd = txtUntOrd.Value
laufw = comboLaufw.Value
'Ordner wird erstellt
Dim FsyObjekt As Object, Ordner As String
Ordner = "" & laufw & ":\" & neuOrd & ""
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
If Not FsyObjekt.FolderExists(Ordner) Then FsyObjekt.CreateFolder (Ordner)
Das klappt gut.
Mit dem nächsten Code will in diesem neuen Ordner noch einen untergeordneten Ordner erstellen:
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 !!!
Und jetzt geht nix mehr. Die Fehlermeldung heißt Dateinummer nicht gefunden.
Ich habe schon alle möglichen Sachen probiert (anstatt Variable den Ordnernamen direkt eingeben usw)
Aber es klappt nicht.
Gibt es vielleicht für den untergeordneten Ordner eine andere Bezeichnung als FileSystem Oblect?
Es wäre wirklich nett, wenn mir jemand nochmals einen Tip geben könnte.
Vielen Dank im voraus
Michael