a l'aide je suis caller

Question

salut j'essaye de copier une file liste
avec ceci sa marche

With ListDir
File1.Pattern = "*.txt"
File1.Path = "c:\materiel micrelec"
End With
For i = 0 To File1.ListCount - 1
FileCopy File1.List(i), "a:" & File1.List(i)
Next i

Mais quand je fait celui qui suis
ça marche pas Pourquoi 

With ListDir
File1.Pattern = "*.txt"
File1.Path = "c:\materiel micrelec\materiel defect"
End With
For i = 0 To File1.ListCount - 1
FileCopy File1.List(i), "a:" & File1.List(i)
Next i

je veux copier tout ce qui ce trouve dans un repertoire sur un floppy
c:\materiel micrelec\materiel defect\*.*

cboulas · Answer

Salut, bien déjà tu peux virer le With et End With qui ne te servent pas ici, ensuite est-ce que ton répertoire existe bien ? as-tu essayé de mettre "c:\materiel micrelec\materiel defect" au lieu de "c:\materiel micrelec\materiel defect" ? Essaie de faire un File1.refresh pour mettre a jour.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

Gobillot · Answer

et le path du fichier source ?

File1.Pattern = "*.txt"
File1.Path = "c:\materiel micrelec\materiel defect"

For i = 0 To File1.ListCount - 1
FileCopy File1.Path & "" & File1.List(i), "a:" & File1.List(i)
Next i

Daniel

petiflamand · Answer

sa marche merci

Ps : est-il possible de cree un repertoire dans la copie
donc il cree un repertoire avant de copier

Gobillot · Answer

tu veux parler du répertoire de destination, parceque celui de la source il existe forcément.
donc tu veux créer un répertoire sur la disquette ?

il faut tester avant de lancer la copie:

 nom = "A:\blablabla"
 If Dir(nom, vbDirectory) = "" Then  MkDir (nom)
  
Daniel

petiflamand · Answer

Ok Merci  sa marche super nikel

Merci

A l'aide je suis caller

5 réponses

Discussions similaires