Hallo,
Ich habe folgenden unvollständigen Code.
Der Kontrolliert erstmal ob der Exportpfad vorhanden ist, wenn nicht wird er erstellt.
Danach soll der Unterordner erstellt werden wenn er noch nicht vorhanden ist.
Darauf folgt eine Prüfung ob er wirklich erstellt wurde.
Mein Problem ist die Fehlerbehandlung die ich folgendermaßen haben möchte.
Wenn ein Fehler Auftritt möchte ich das das erstellen noch mal wiederholt wird.
Beim 2. Fehler soll es gemeldet werden und fertig.
Funktioniert alles beim 1. Mal dann Exit Sub.
Public Sub Ordner_erstellen()
Dim oFSO As Object
Dim ...
usw.
On Error GoTo Fehler
'Exportpfad
strPfad = "D:\Export" ' Pfad einstellen
strOrdner = variabel
For i = 1 To 2
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FolderExists(strPfad) Then
oFSO.CreateFolder (strPfad)
End If
If Not oFSO.FolderExists(strPfad & "\" & strOrdner) Then
oFSO.CreateFolder (strPfad & "\" & strOrdner)
End If
If oFSO.FolderExists(strPfad & "\" & strOrdner) Then
' Mach irgendwas
End If
Wiederholen:
Next
Set oFSO = Nothing
Exit Sub
Fehler:
Resume Wiederholen
MsgBox.... Beim 2. Fehler etwas melden.
Set oFSO = Nothing
End Sub
Passt das so oder gibt es etwas was ich besser machen kann / sollte?
Oder ist etwas falsch?
Vielen Dank
Mfg Thomas
|