Bonjour,
j'utilise ce code pour déplacer des fichiers txt d'un répertoire vers un autre (en vue de les garder en archives par prudence)
Ce code marche bien sauf à chaque fois pour le dernier fichier txt.
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 ' l'envoi est fini je déplace le fichier en archives 'obtient le premier fichier texte qui est dans "c:\MonrepertoireIni\" REP = Dir("C:\envoiFTP\*.txt", vbDirectory) Do While (REP <> "") 'boucle tant que le répertoire n'a pas été entièrement parcouru sEmplacementFinal = "C:\envoiFTP\archives\" & REP & "_.arc" FileCopy "C:\envoiFTP\" & REP, sEmplacementFinal For R = 1 To 9000000 'égal env 1sec 'pause Next Kill ("C:\envoiFTP\" & REP) REP = Dir("C:\envoiFTP\*.txt", vbDirectory) 'passe à l'élément suivant Loop
Si, par exemple, j'ai 5 fichiers txt : les 4 premiers passent. Puis access plante en me disant que le chemin/fichier est introuvable pour le dernier.
Or en débuggant, je vois que REP et sEmplacementFinal sont bons. Donc je n'arrive pas à comprendre pourquoi il ne trouve pas le fichiers ?
auriez-vous une idée ?
Merci
Partager