Kopieren vanuit een listbox

[bonnowagt]

Hallo,

Ik heb een aantal bestanden staan in listbox1. Ik wil deze kopieren naar een map op de O:\schijf

Mijn code:

   For Each item As String In ListBox1.Items
   My.Computer.FileSystem.CopyFile(ListBox1.SelectedItem, DirectoryUitvoer.Text + "\" + My.Computer.FileSystem.GetName(ListBox1.SelectedItem), True)
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                MsgBox(ListBox1.SelectedIndex)

            Next

Vervolgens kopieerd het programma alleen het eerste item

Wie ziet wat ik verkeerd doe

Alvast bedankt

 

[edmoor]

Dat kan simpeler:

For i As Integer = 0 To ListBox1.Items.Count - 1
    'Je copy commando waarbij de naam van het bestand staat in: ListBox1.Items.Item(i).ToString
Next i

 

[bonnowagt]

Erg bedankt het werkt prima