Wenn Fehler mit Dateioperationen eine Wiederholung
Hallo,
[/FONT]
Funktioniert alles beim 1. Mal dann Exit Sub.
[/FONT]
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.Ordner_erst (strPfad)
End If
If Not oFSO.FolderExists(strPfad & "" & strOrdner) Then
oFSO.Ordner_erst (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
[/FONT]
Passt das so oder gibt es etwas was ich besser machen kann / sollte? Oder ist etwas falsch?
[/FONT]
Vielen Dank im voraus
Mfg Tommylik[/FONT]
This is a migrated post! Originally posted on 20.01.2021 by user Tommylik. Please be aware that information can be outdated.