MsgBox("Sollen die Dateien wirklich ins Quellverzeichnis kopiert werden?", _
  MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Datien ins Quellverzeichnis" & _
  "kopieren")
        Dim iCount As Integer
        iCount = listZielverzeichnis.Items.Count
        For i = 0 To iCount
            If i >= iCount Then
                MsgBox("Die Dateien wurden erfolgreich kopiert", _
                  MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Kopiervorgang" & _
                  "erfolgreich")
                Exit Sub
            Else
                File.Copy(txtZielverzeichnis.Text & "\" & _
                  listZielverzeichnis.Items(i), txtQuellverzeichnis.Text & "\" _
                  & listZielverzeichnis.Items(i), False)
            End If
        Next i

If IOException then
MsgBox("Die Datei " & Dateiname & " wurde nicht kopiert, da Sie bereits" & _
  "besteht.")
Next i