Discussion :

[tibofo]

Bonsoir,

J'ai trouvé dans la FAQ ce code :

Code :

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

1
2
3
4
5
6
7
8
'Déclarer deux variables string pour les emplacements
Dim sEmplacementInitial As String, sEmplacementFinal As String
 
sEmplacementInitial="c:\MonrepertoireIni\Monfichier.xls"
sEmplacementFinal="D:\Monrepertoirefin\Monfichier.xls"
 
 'Copie du fichier
FileCopy sEmplacementInitial,sEmplacementFinal

MAis je n'arrive pas à lui dire de copier *.txt vers c:\sauv\*.bak

Savez-vous comment faire ?

Merci

[User]

Salut,

Pour lister tous les fichiers txt de ton répertoire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim rep As String
'obtient le premier fichier texte qui est dans "c:\MonrepertoireIni\"
rep = Dir("c:\MonrepertoireIni\*.txt", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
 
   MsgBox "Fichier texte : " & rep ' Utiliser FileCopy à la place.
 
  'passe à l'élément suivant
    rep = Dir
 
Loop

Si ça peux t'aider

[tibofo]

Merci,
j'ai pu adapter et ça marche. Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rep As String
'obtient le premier fichier texte qui est dans le répertoire
rep = Dir("C:\DOSSIER\envoiFTP\*.txt", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
  sEmplacementFinal = "C:\DOSSIER\envoiFTP\archives\" & rep & ".arc"
  'sEmplacementInitial =
   'MsgBox "Fichier texte : " & rep ' Utiliser FileCopy à la place.
  FileCopy "C:\DOSSIER\envoiFTP\" & rep, sEmplacementFinal
  'passe à l'élément suivant
     Kill ("C:\DOSSIER\envoiFTP\" & rep)
    rep = Dir("C:\DOSSIER\envoiFTP\*.txt", vbDirectory)
 
Loop

Et Hop, un tag RESOLU de plus