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