Discussion :

[Oromis56]

Salut,

J'essaye de faire un petit programme me permettant de déplacer tout les fichiers .mp3 d'un dossier dans un autre portant le nom "Mp3"
Voici mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim path As String = "D:\Test copie\"
        Dim fichier2 As String = "D:\Test copie\Mp3\"
        For Each files As String In System.IO.Directory.GetFiles(path, "*.mp3")
 
            System.IO.File.Move(files, fichier2)
        Next
    End Sub
End Class

Pourtant il renvoie "Informations supplémentaires*: Impossible de créer un fichier déjà existant.".
Le fichier de destination est pourtant vide !
Si quelqu'un connait la réponse à mon problème !
Merci d'avance !

[Pol63]

regarde l'intellisense (auto complétion avec menu déroulant)
tu verras que le 2ème paramètre n'est pas le nom du dossier, mais le nom complet du fichier final
il faut donc concaténer le dossier avec le nom du fichier

system.io.path.getfilename et system.io.path.combine seront utiles

[Oromis56]

Merci pour ta réponse,

Voici ma nouvelle version :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim path1 As String = "D:\Test copie\"
        Dim fichier2 As String = "D:\Test copie\Mp3\"
        Dim result As String
        For Each files As String In System.IO.Directory.GetFiles(path1, "*.mp3")
            result = Path.GetFileName(files)
            Dim combination As String = Path.Combine(fichier2, result)
            System.IO.File.Move(files, combination)
        Next
    End Sub
 
End Class

Tout fonctionne, merci beaucoup !!!