[VBS] déplacer des fichiers

**Corben** · 27/03/2006, 16h51

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

**Megaxel** · 27/03/2006, 16h59

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

**The Ditch** · 16/04/2009, 10h53

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 :

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

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