Discussion :

[tibofo]

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)

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

Ce code marche bien sauf à chaque fois pour le dernier fichier txt.

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

[User]

Salut,

quand tu utilises:

Code :

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

1
2
3
...
REP = Dir("C:\envoiFTP\*.txt", vbDirectory)   'tu reviens au premier fichier texte
...

tu reviens au premier fichier du répertoire.

essai de la remplacer par:

Code :

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

1
2
3
...
REP = Dir  'passe à l'élément suivant, le fichier texte suivant.
...

donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
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  'passe à l'élément suivant
Loop

A+

[tibofo]

Merci User mais cela ne marche pas.

(cette fois-ci, un seul fichier est déplacé)

Dans l'urgence de mon projet, j'ai remplacé cette partie par un batch dos


Merci
Bonne année à tous