Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e _
     As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
 
        Save = True
 
        Button13.Enabled = True   'Sicherung abbrechen (Setzt "Save" zurück) 
 
' Zwischen dem obigen und dem nachfolgenden Schritt tritt der Fehler auf
 
        Button12.Enabled = False  'Sicherung Starten (Startet 
        ' "BackgroundWorker2")
 
        Button10.Enabled = False  'Zeitabstand zwischen den Sicherungen setzen
 
 
 
A:
 
'Pfad1 => Ausgangsordner
'Pfad2 => Zielordner
'Delay_Save => gesetzte Zeit
'Zwischenspeicher ist der Ordner-Pfad
'Sicherung ist der für die Sicherung zu verwendende Ordner (Name + Datum + Zeit)
 
        Pfad2 = Zwischenspeicher + "\" + Sicherung
 
        MkDir(Pfad2)
 
        My.Computer.FileSystem.CopyDirectory(Pfad1, Pfad2, True)
 
        If Save Then
 
             System.Threading.Thread.Sleep(Delay_Save) 
 
            GoTo A
 
        Else
 
            GoTo C
 
        End If
 
C:
        MsgBox("Permanente Sicherung beendet." & vbNewLine & "Bitte für einen" & _
          "erneuten Start die Zeit neu setzen.", MsgBoxStyle.Information, _
          "Done")
 
        Button10.Enabled = True
 
    End Sub