Dim LaufwerkInformationen As New DriveInfo("d:\")
        Dim Laufwerkname As Double
        Dim ReadByte As Int32
 
        'ggf. Backslashes anfügen
        If Not sSrcPath.EndsWith("\") Then sSrcPath &= "\"
        If Not sDestPath.EndsWith("\") Then sDestPath &= "\"
 
        'Durchführung der Syncronisation: 
        Datenbestand_synchronisieren(sSrcPath, sDestPath)
        DeleteFolder_Sync(sSrcPath, sDestPath)
 
        'Speichert Inhalte aus der Listbox
        lstBox_speichern(lstBoxAusgabe, SpeicherortDatei = DateiExists)
 
        Laufwerkname = LaufwerkInformationen.TotalSize / (1024 ^ 3) '& " GB"
 
        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
 
        btnReportLöschen.Enabled = True
        btnBeenden.Enabled = False
    End Sub