Showing results 1 to 1 of 1

Thread: Wenn Fehler mit Dateioperationen eine Wiederholung

  1. #1
    Join Date
    13.10.2017
    Posts
    38

    Default Wenn Fehler mit Dateioperationen eine Wiederholung

    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.

    Code:
    
    
    Code:
    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


    Passt das so oder gibt es etwas was ich besser machen kann / sollte? Oder ist etwas falsch?


    Vielen Dank im voraus

    Mfg Tommylik
    Last edited by Tommylik : 20th January 2021 at 08:12

Similar Threads

  1. Alarme Wiederholung
    By Alex Takam in forum Engineering Studio & Service Engine (former zenon Editor & Runtime)
    Replies: 1
    Last Post: 5th August 2019, 14:57
  2. Visualisierung für eine Photovoltaikanlage
    By datl in forum Engineering Studio & Service Engine (former zenon Editor & Runtime)
    Replies: 1
    Last Post: 4th July 2014, 08:35
  3. Replies: 6
    Last Post: 19th August 2013, 00:15
  4. CEL Eintrag wenn Variable sich im Treiber(Steuerung) ändert
    By armin_sa in forum Engineering Studio & Service Engine (former zenon Editor & Runtime)
    Replies: 3
    Last Post: 22nd September 2011, 00:47
  5. Mit Mouseover eine Funktion ausführen??
    By zuercher in forum VBA
    Replies: 4
    Last Post: 26th November 2009, 18:47

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •