Repertoire de destination

Signaler
Messages postés
7
Date d'inscription
vendredi 20 septembre 2002
Statut
Membre
Dernière intervention
2 octobre 2002
-
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
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

Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

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
Messages postés
7
Date d'inscription
vendredi 20 septembre 2002
Statut
Membre
Dernière intervention
2 octobre 2002

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
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

T tj aussi chaleureuse avec les inconnus ? (ca fait 2fois quand même !)

>:) ::Alan USSE:: >:)
0