Herbers Excel-Forum - das Archiv

fehler im script

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Excel-Beispiele zum Thema "fehler im script"
Fehlermeldung #NV ausblenden Fehlermeldung abfangen
Fehler in Workbook_Open-Prozedur abfangen Fehlermeldung #DIV/0! verhindern
Fehler entfernen Fehlermeldung abfangen und in sequentielle Datei schreiben
Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers VBA-Fehlermeldungen auflisten
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen Zahlenstring mit Formel auslesen und Fehlermeldung verhindern