For each de elementos de Listbox

[DuarteVinagre]

ola...sou novo aqui e este é o meu primeiro post... espero que esteja tudo bem convosco....

passa-se o seguinte...tenho este pequeno codigo mas não consigo por o "move" para cada elemento da Listbox.....

 

ajuda por favor??

 

   Private Sub btninstall_Click(sender As Object, e As EventArgs) Handles btninstall.Click
       Dim sourceDir = inputfdl.SelectedItems
       Dim inn = input.Text & "\" & inputfdl.SelectedItem
       Dim out = bank1.Text & "\" & inputfdl.Text
       For Each file As String In sourceDir

           My.Computer.FileSystem.MoveFile(inn, out)
       Next file
       Call install()

   End Sub

Obrigado!!

[Andrepereira9]

Boas

Pelo que percebi, tens uma Listbox preenchida com nomes dos ficheiros, e queres mover todos os ficheiros que estão na Listbox de uma pasta para outra.
Se assim for, experimenta assim:

 

 Dim sourceDir = inputfdl.Items

 For Each file As String In sourceDir
     Dim inn = input.Text & "\" & file.ToString

     Dim out = bank1.Text & "\" & file.ToString


     My.Computer.FileSystem.MoveFile(inn, out)
 Next file

 

[DuarteVinagre]

boas ...obrigado ....é parecido....queria mover apenas os seleccionados..

[DuarteVinagre]

ok done...meti o inputfdl.Items para SelectedItems ... parece bem agora...obrigado

[DuarteVinagre]

Ola pessoal...desculpem mas estou outra vez encalacrado com of for each..

agora passa-se isto:

  Dim item = list1.SelectedItems
  For Each fil As String In item
      Dim wavFile As String = FolderB2.SelectedPath & "\" & list1.SelectedItem & ".wav"
      Dim mp3File As String = textfold.Text & "\" & list1.SelectedItem & ".mp3"
      ConvertWavToMp3(wavFile, mp3File)
  Next

Obrigado por qualquer suporte 🙂