Stringa = MyDirPath & "\foto\" & Rs.Fields("ID").Value
ListBox1.Items.Clear() For Each foundFile As String In My.Computer.FileSystem.GetFiles(Stringa) Sorgente = foundFile Destinazione = MyDirectory & "\Picture\" & Mid(foundFile, Len(Stringa) + 2, Len(foundFile)) FileCopy(Sorgente, Destinazione) ListBox1.Items.Add("Picture/" & Mid(foundFile, Len(Stringa) + 2, Len(foundFile))) 'Me.Text = Sorgente Next |