cs_didine
Messages postés7Date d'inscriptionvendredi 20 septembre 2002StatutMembreDernière intervention 2 octobre 2002
-
30 sept. 2002 à 16:56
Alan71
Messages postés530Date d'inscriptionlundi 3 juin 2002StatutMembreDernière intervention13 juin 2004
-
2 oct. 2002 à 23:09
Salut tlm
voila mon probleme
je veut r'ajouter un drivelistbox et un dirlistbox pour la destination de la copie (c'est a dire que je peut choisir le repertoire ou je veut copier mes fichiers, au lieu de c:\didine
Dim chemin As String
File1.Path = Drive1.Drive & "Music"
If Right$(File1.Path, 1) <> "" Then
chemin = File1.Path & ""
Else
chemin = File1.Path
End If
For i = 0 To File1.ListCount - 1
'__________________________ici
FileCopy chemin & File1.List(i), "c:\didine" & File1.List(i)
Next i