Bonjour je déplace des fichiers PDF d'un dossier à un autre pour cela j'utilise cette méthode.
J'aimerais tester si le déplacement est bien réussi (prb de fichier verouiller ou par exemple en cours de création) pr insérer dans une table des informations.
Comment tester si le déplacement est bien effectué ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
rep1 = "test1"
rep2 = "test2"
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(rep1)
Set fFichiers = f.Files
 
For Each fTemp in fFichiers
Set Ftxt = fs.GetFile(rep1&"\"&fTemp.name)   'Fichier origine
Ftxt.move(rep2&"\"&fTemp.name)
MERCI BCP