Bonjour,
j'ai créer une procédure qui scanne des types de fichiers ( Audio, Vidéo, Images, Documents ) dans tous les répertoires du PC et affiche tous les fichiers trouvés dans une listbox, je voudrais copier les fichiers trouvés dans le répertoire du programme, j'ai modifié le code issu de la réponse de gunteman
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    Private Sub CopyDesFichiers()
        Dim file As FileInfo
        For Each fileitem In ListboxFichiersTrouvés.Items
            file = New FileInfo(fileitem.Value)
                file.CopyTo(Path.Combine(Application.StartupPath, file.Name), True)
        Next
 
    End Sub