1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Repertoire de destination

cs_didine Messages postés 7 Date d'inscription vendredi 20 septembre 2002 Statut Membre Dernière intervention 2 octobre 2002 - 30 sept. 2002 à 16:56
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 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

merci d'avance

3 réponses

Réponse 1 / 3
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
30 sept. 2002 à 19:03
Si je comprends bien...

Avec drive2 et dir2, les obj pour le répertoire de destination.

'Quand tu change de dd, tu change le path
Public sub drive2_change()
dir2.path=drive2.path
end sub

'a la place de FileCopy chemin & File1.List(i), "c:\didine" & File1.List(i)
FileCopy chemin & File1.List(i), dir2.path & File1.List(i)

Je pense que ca doit être bon, Alan Usse, le pro des codes en live (donc blindé de bug) !

Comme tj, si pb, tu rappelle !

>:) ::Alan USSE:: >:)
0
Réponse 2 / 3
cs_didine Messages postés 7 Date d'inscription vendredi 20 septembre 2002 Statut Membre Dernière intervention 2 octobre 2002
2 oct. 2002 à 22:15
salut Alan

Je te remercie beaucoup pour ta reponse, sinon voila j'etaie absente je viens juste de voire ton message.

grace a ton astuce j'aie trouver le code complet.
FileCopy chemin & File1.List(i), dir2.path & "" & File1.List(i)

en fait il manquer juste ""

merci encore milles fois
gros bisous @+
0
Réponse 3 / 3
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
2 oct. 2002 à 23:09
T tj aussi chaleureuse avec les inconnus ? (ca fait 2fois quand même !)

>:) ::Alan USSE:: >:)
0
Rejoignez-nous