Bonjour avt d'inserer des informations dans une base de données j'aimerais tester si mon fichier et bien deplacé.
J'utilse FileExist mais cela ne fonctionne pas prk cela ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Dim fs
 
'instanciation
'Set FS = CreateObject("Scripting.FileSystemObject")
 
rep1 = "test1"
rep2 = "test2"
i = 1
 
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) 
'emplacement destination
'Déplacement du fichier
msgbox(fTemp.DateCreated&" "&fTemp.name)
 
if Fileexist(rep2&"\"&fTemp.name) then
msgbox("Fichier deplacé")
end if
 
if (i=5) then
msgbox("Fin")
wscript.quit
end if
i = i+1
Next
 
wscript.quit

Merci BCP