#Region "Sicherung"
 
    Dim Pfad1 As String
    Dim Pfad2 As String
    Dim Zwischenspeicher As String
 
    Dim DC_Save As String    '// Delay-Copy-Sicherung
    Dim DP1_Save As String   '// Delay-Paste-1-Sicherung
 
    Dim Stunden As String ' = My.Computer.Clock.LocalTime.Hour
    Dim Minuten As String ' = My.Computer.Clock.LocalTime.Minute
    Dim Sekunden As String ' = My.Computer.Clock.LocalTime.Second
    Dim Datum As String ' = My.Computer.Clock.LocalTime.Date
 
    Dim Save As Boolean
 
    Dim Delay_Save As String
 
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button14.Click
 
        MsgBox("Bitte den zu Sichernden Pfad/Ordner auswählen.", _
          MsgBoxStyle.Information, "Ausgangsordner")
 
        FolderBrowserDialog3.ShowDialog()
        Pfad1 = FolderBrowserDialog3.SelectedPath
        If Pfad1 = "" Then
            GoTo A
        End If
 
        MsgBox("Bitte den Pfad/Ordner auswählen, in dem die Sicherung erstellt" & _
          "werden soll.", MsgBoxStyle.Information, "Ausgabeordner")
 
        FolderBrowserDialog4.ShowDialog()
 
        Zwischenspeicher = FolderBrowserDialog4.SelectedPath
        If Zwischenspeicher = "" Then
            GoTo A
        End If
 
        Button10.Enabled = True
        Button11.Enabled = True
A:
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button11.Click
 
        Stunden = My.Computer.Clock.LocalTime.Hour
        Minuten = My.Computer.Clock.LocalTime.Minute
        Sekunden = My.Computer.Clock.LocalTime.Second
        Datum = My.Computer.Clock.LocalTime.Date
 
        Dim Sicherung As String = "Sicherung vom " + Datum + " - " + Stunden + _
          "-" + Minuten + "-" + Sekunden
 
        Pfad2 = Zwischenspeicher + "\" + Sicherung
 
        MkDir(Pfad2)
 
        My.Computer.FileSystem.CopyDirectory(Pfad1, Pfad2)
 
        MsgBox("Sicherung beendet.", MsgBoxStyle.Information, "Done")
 
    End Sub
 
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button13.Click
 
        Save = False
 
        Delay_Save = "0"
 
        Button13.Enabled = False
 
    End Sub
 
    '==========================================================================
    ' ====================================================
 
#End Region
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'erlaubt zugriff auf die windows form
        BackgroundWorker2.WorkerReportsProgress = True
        'erlaubt unterbrechung des bgw z.b. wenn das programm beendet wird
        BackgroundWorker2.WorkerSupportsCancellation = True
    End Sub
 
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
 
    End Sub