[VBS] déplacer des fichiers

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:

---

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

Teste le fichier avec un FileExist() après la copie.

Bonjour,

En reprenant le code de Corben, j'aimerais inclure les sous dossiers de mon répertoire source et renomer les fichiers dans le répertoire destination du style dans le répertoire source, il serais monfichier.doc et en destionation il serait monfichier-Arch160409.doc

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

source = "C:\A" destination = "C:\B"   Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(source) Set fFichiers = f.Files   For Each fTemp In fFichiers If DateDiff("d", fTemp.DateLastModified, Date) > 10 Then Set Ftxt = fs.GetFile(source & "\" & fTemp.Name) 'Fichier origine Ftxt.Move (destination & "\" & fTemp.Name) End If Next

---

Pouvez-m'aider?

Merci

Les exemples de la FAQ devrait t'aider à faire ce que tu souhaites :
http://vb.developpez.com/faqvbs/?page=II.2

Merci, je vais regarder cela. :D