hallo!
ich habe mir ein script gebaut, welches eine datei in einem bestimmten ordner anlegen soll - wenn es den ordner noch nicht gibt, soll er angelegt werden.
Oberordner = D:\Kalkulation
1. Unterordner = strLieferant
2. Unterordner = strModell
Ordnerstruktur also : D:\Kalkulation\strLieferant\strModell\dateiname.xls
hier mein script:
strFolderMain = "D:\Kalkulation"
strFolderLieferant = strLieferant 'Kommt aus der Inputbox
strFolderModell = strModell 'Inputbox
ChDir (strFolderMain)
If Dir(strFolderLieferant, vbDirectory) "" Then
ChDir strFolderLieferant
If Dir(strFolderModell, vbDirectory) "" Then
ChDir (strFolderModell)
'Speichern
MsgBox ("Speichern 1")
Else
MkDir strFolderModell
'Speichern
MsgBox ("Speichern 2")
End If
Else
MkDir (strFolderLieferant)
ChDir (strFolderLieferant)
MkDir strFolderModell
ChDir (strFolderModell)
'Speichern
MsgBox ("Speichern 3")
End If
soweit so gut, leider wird - egal ob es die ordner gibt oder nicht immer "Speichern 3" angezeigt - also eigentlich der fall, wenn es keinen ordner gibt!
wo ist mein fehler?!
vielen dank