Salve a tutti ragazzi, voglio chiedervi un informazione perchè ci ho sbattuto la testa tutto il giorno. Premetto che sono al 2°giorno di apprendimento e non so praticamente nulla ma piano piano spero di imparare qualcosina.

Sto creando un programma per rinominare i file, specifico per mp3.. per gli odiosi "_" soprattutto, l'unico problema e che sono a metà lavoro e mi sono fermato a causa del openfiledialog o almeno credo..
2 tasti e 2 listbox:
il primo tasto apre OFD e sceglio più file, dico più perchè l'ho settato su multiselect.
li visualizzo nella prima listbox, e fino a qui ok.
secondo tasto porta i filename nella listbox2 togliendo _, dopodiche rinomino i file dell'OFD (riprendendoli dalla listbox2).

questo ultimo passaggio non mi funziona.. o perlomeno.. mi funziona per il primo file poi mi da errore vb "impossibile trovare il percorso C:...../nome del file iniziale"
Praticamente a ogni ciclo for each riprende sempre il primo percorso OFD e non riesco a venirne fuori.. help me please


posto il codice sperando che qualcuno mi dia una mano..

codice:
Public Class CNC

    Dim OFD As New OpenFileDialog
    Private Sub Apri(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'proprietà openfiledialog
        OFD.Multiselect() = True
        OFD.Title = "Scegli il file..."
        OFD.Filter = "mp3 file (*.mp3)| *.mp3"

        'ciclo listbox1 scrittura dei nomi
        If OFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim filepath() As String = OFD.FileNames
            Dim ffile As String
            For Each ffile In filepath
                Me.ListBox1.Items.Add(System.IO.Path.GetFileName(ffile))
            Next
            Dim FileNameLast As String = System.IO.Path.GetFileName(OFD.FileName)
            
        End If
    End Sub
   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'replace del carattere _
        For Each Stringa In ListBox1.Items

            Dim RP As String = Replace(Stringa, "_", " ")
            Me.ListBox2.Items.Add(RP)
            My.Computer.FileSystem.RenameFile(OFD.FileName, RP)
        Next

    End Sub
End Class