2:          If TotalProOrdner < AnzahlProOrdner Then
 
                Dim f As New IO.FileInfo(ListBox1.Items.Item(arrayZähler))
                IO.File.Copy(TextBox1.Text & TextBox5.Text & _
                  ListBox1.Items.Item(arrayZähler), TextBox2.Text)
                TotalProOrdner = TotalProOrdner + 1
                arrayZähler = arrayZähler + 1
                GoTo 2
            End If

ARSENAL LONDON <33