Dim arrayZähler As Integer = 0 'Welcher Pfad wird gerade kopiert (arrays)
 
 
            Dim fiQuelle As New IO.FileInfo(ListBox1.Items.Item(arrayZähler))
            Dim fiZiel As New IO.FileInfo(TextBox2.Text & "\" & TextBox5.Text)
 
            If fiQuelle.Exists Then
                If Not fiZiel.Directory.Exists Then
                    Try
                        fiZiel.Directory.Create()
                    Catch ex As Exception
                        Debug.WriteLine("Zielverzeichniskonnte nicht erstell" & _
                          "werden.")
 
                    End Try
                End If
 
                Try
                    fiQuelle.CopyTo(fiZiel.FullName)
                Catch ex As Exception
                    Debug.WriteLine("Fehler beim Kopieren aufgetreten.")
                End Try
            Else
                Debug.WriteLine("Quelldatei nicht vorhanden.")
            End If
 
            TotalProOrdner = TotalProOrdner + 1
            arrayZähler = arrayZähler + 1
 
        End If

ARSENAL LONDON <33