Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
    Dim I As ListViewItem
    For Each I In ListView2.Items ' Die Aufgabenliste mit je Quell und 
    ' Zielordner als vollständige Pfade
        Dim rf As String = I.Text.Trim() ' Der Quellordner
        listView1.Items.Clear() ' Fortschrittsliste leeren
        label3.Text = "Lese Verzeichnis aus." ' Status
        label3.Update() ' Update Status
        recFolder(rf,listView1) ' Rekursives Auslesen und in die 
        ' Fortschrittsliste schreiben (ordner ... dateien, unterordner usw.)
        Dim a As ListViewItem ' Item zum durchgehen der Liste
        For Each a In listView1.Items
            Try
	            Dim FolderPath As String = a.Text.Trim() ' Quellpfad der Datei/des 
' Ordners
	            Dim NewFolderPath As String = FolderPath.Replace(I.Text.Trim( _
  ),I.SubItems(0).Text.Trim()) ' Zielpfad der Datei/des Ordners
	            If System.IO.Directory.Exists(FolderPath) = False Then  ' Prüfen, 
' ob Ordner oder Datei
                   label3.Text = "Kopiere Datei: " & FolderPath.Replace( _
                     I.Text.Trim(),"") ' Status
                   label3.Update()
	                System.IO.File.Copy(FolderPath,NewFolderPath,True) ' Datei 
' kopieren (HIER ENTSTEHT DER FEHELR!)
	            Else ' Ist es ein Ordner ... dann ...
	                If System.IO.Directory.Exists(NewFolderPath) = False Then ' 
' Existiert Zielordner schon?
	                    label3.Text = "Erstelle Verzeichnis: " & NewFolderPath ' 
' Wenn nein, erstellen und Statusausgabe.
                        label3.Update()
	                    System.IO.Directory.CreateDirectory(NewFolderPath)
	                End If
	            End If
               a.SubItems(1).Text = "OK" ' Status des aktuellen Eintrages auf 
               ' Ok setzen, wenn kein Fehler auftritt
	            a.BackColor = Color.LightGreen ' Farbe setzen bei keinem Fehler
	        Catch ex As Exception ' Fehler abfangen
               If ex.ToString().ToLower().IndexOf("another process") > -1 _
                 Then ' Bisher bekannte Fehlerkombinationen abfragen (ist 
               ' bisher nur dies gewesen)
                   a.SubItems.Add("Wird verwendet!") ' Fehler eintragen.
               Else
	                a.SubItems.Add("Fehler") ' Unbekannte Fehler als "Fehelr" _
  abstempeln
               End If
            End Try
        Next
    Next
    label3.Text = "" ' Status löschen
    label3.Update()
End Sub