Me.Show()
 
 
        'BackgroundWorker1.RunWorkerAsync()
 
        'Aktivierung Timer für Aktualisierung der IP-Adresse
        Timer1.Interval = 100
        Timer1.Enabled = True
        Timer1.Start()
 
        'Durchführung der Syncronisation: 
        Datenbestand_synchronisieren(sSrcPath, sDestPath)
        DeleteFolder_Sync(sSrcPath, sDestPath)
 
        'Speichert Inhalte aus der Listbox
        lstBox_speichern(lstBoxAusgabe, SpeicherortDatei = DateiExists)
 
        If LaufwerkInformationen.IsReady Then
            Dim d As New DriveInfo("d:\")
            ProgressBar1.Maximum = 100
            Dim Prozent As Integer = d.TotalFreeSpace / d.TotalSize * 100
            ProgressBar1.Value = ProgressBar1.Maximum - Prozent
 
            If Prozent > 0 And Prozent < 10 Then
                SetPBarColor(ProgressBar1, PBarColor.Rot)
            ElseIf Prozent > 10 And Prozent < 15 Then
                SetPBarColor(ProgressBar1, PBarColor.Gelb)
            Else
                SetPBarColor(ProgressBar1, PBarColor.Gruen)
            End If
        End If
 
        lblAuslastung.Text = "0%"
 
        With ProgressBar1
            .Value += ReadByte
            lblAuslastung.Text = CStr(CInt(100 * .Value / .Maximum)) & "%"
        End With
 
        cmdReportLöschen.Enabled = True
        cmdBeenden.Enabled = False