fehler im script

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: fehler im script
von: sven
Geschrieben am: 17.03.2005 16:24:36
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

Bild

Betrifft: AW: fehler im script
von: Frank Domke
Geschrieben am: 17.03.2005 16:54:16
Versuch es mal so:
strFolderMain = "D:\Kalkulation"
strFolderLieferant = strLieferant 'Kommt aus der Inputbox
strFolderModell = strModell 'Inputbox
'ChDir (strFolderMain)
If Len(Dir(strFolderMain & "\" & strFolderLieferant, vbDirectory)) = 0 Then
MkDir strFolderMain & "\" & strFolderLieferant
If Len(Dir(strFolderMain & "\" & strFolderLieferant, vbDirectory)) = 0 Then
MsgBox "Verzeichnis " & strFolderMain & "\" & strFolderLieferant & _
" kann nicht angelegt werden!", vbCritical
Exit Sub
End If
End If
If Len(Dir(strFolderMain & "\" & strFolderLieferant & "\" & strFolderModell, vbDirectory)) = 0 Then
MkDir strFolderMain & "\" & strFolderLieferant & "\" & strFolderModell
If Len(Dir(strFolderMain & "\" & strFolderLieferant & "\" & strFolderModell, vbDirectory)) = 0 Then
MsgBox "Verzeichnis " & strFolderMain & "\" & strFolderLieferant & "\" & strFolderModell & _
" kann nicht angelegt werden!", vbCritical
Exit Sub
End If
End If
' hier speichern!
Viel Erfolg
Frank.
Bild

Betrifft: AW: fehler im script
von: sven
Geschrieben am: 17.03.2005 17:39:45
hy frank!
super danke - es läuft!!!
sven
 Bild

Beiträge aus den Excel-Beispielen zum Thema "fehler im script"