Code:
Dim übersprungen As Integer = 0
Dim count As Integer
_label_1(anzahl_dateien, dateiname, count, I)
If dateiname(I).contains(datei) Then
If chlb_dateiendungen.GetItemCheckState(item) = CheckState.Checked Then
If Not My.Computer.FileSystem.DirectoryExists(fd_speicher_pfad.SelectedPath & "\" & ordner) Then
My.Computer.FileSystem.CreateDirectory(fd_speicher_pfad.SelectedPath & "\" & ordner)
End If
If rdbtn_verschieben.Checked() = True Then
If Not My.Computer.FileSystem.FileExists(fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) Then
My.Computer.FileSystem.MoveFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) ' Kopieren
Else
übersprungen += 1
End If
ElseIf rdbtn_kopieren.Checked() = True Then
If Not My.Computer.FileSystem.FileExists(fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) Then
My.Computer.FileSystem.CopyFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) ' Kopieren
Else
übersprungen += 1
End If
End If
Else
übersprungen += 1
End If
Else
übersprungen += 1
End If
_label_2(übersprungen, count, I)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 0 To chlb_dateiendungen.Items.Count - 1
chlb_dateiendungen.SetItemChecked(i, 1)
Next
End Sub
Private Sub _label_1(ByVal anzahl_dateien As Integer, ByVal dateiname As Array, ByVal count As Integer, ByVal i As Integer)
count = (anzahl_dateien - 1) - i
lbl_datei.Text = dateiname(i)
End Sub
Private Sub _label_2(ByVal übersprungen As Integer, ByVal count As Integer, ByVal i As Integer)
lbl_übersprungen.Text = übersprungen
prgb_fortschritt.Value = i + 1
lbl_verbleibende_dateien.Text = count
End Sub
