Besoin AIDE pour listbox en VB ??

Dim sourceDirs as String() ' = Liste des chemins concernés
For Each sourceDir as String In sourceDirs
   .... ' Le code que tu met pour un seul chemin (que tu as présenté ci-haut )
Next

'chemin d'origine des fichiers
Dim sourceDirS As String( [Nombre de chemins concernés] )
'chemin où sont copier les fichiers
Dim backupDir As String = "\\Poste1\ia"

'information des chemins concernés
sourceDirS(0) = "chemin1"
sourceDirS(1) = "chemin2"
...
sourceDirS( [Nombre de chemins concernés] -1) = "chemin [Nombre de chemins concernés]"

Try

For Each sourceDir As String In sourceDirs

    Try

    Dim txtList As String() = Directory.GetFiles(sourceDir, "*.txt")

    For Each f As String In txtList
        Dim fName As String = f.Substring(sourceDir.Length + 1)
        Try
        File.Copy(Path.Combine(sourceDir, fName), Path.Combine(backupDir, fName))
        MsgBox("Votre fichier s'est correctement envoyé ! ")
    
        Catch copyError As IOException
        MessageBox.Show("Erreur pour la copie des fichiers ! " & copyError.Message)
    
        End Try

    Next
    
    Catch dirNotFound As DirectoryNotFoundException
    MessageBox.Show(" Erreur de copie ! " & dirNotFound.Message)
    End Try

End Try

'chemin d'origine des fichiers
Dim sourceList As String(ListBox1.ListCount)
'En sachant que la ListBox1 contient tous les fichiers avec leur chemins complets

'chemin où sont copier les fichiers
Dim backupDir As String = "\\Poste1\ia"

Try
	' On copie le contenu de la ListBox dans un tableau
	' On aurait pu travailler directement avec la ListBox, mais celà fait plus propre
	dim i as integer
	For i = 0 to ListBox1.ListCount - 1
		sourceList(LBound(sourceList) + i) = ListBox1(i)
	Next i
End Try

Try
	For Each f As String In sourceDirs
		'Dim fName As String = f.Substring(sourceDir.Length + 1)
		Try
			File.Copy(f, Path.Combine(backupDir, Path.GetFileName(f)))
			MsgBox("Votre fichier s'est correctement envoyé ! ")

		Catch copyError As IOException
			MessageBox.Show("Erreur pour la copie des fichiers ! " & copyError.Message)

		End Try
	Next f

	Catch dirNotFound As DirectoryNotFoundException
	MessageBox.Show(" Erreur de copie ! " & dirNotFound.Message)
	End Try
End Try