[VBS] Fileexit tester si un fichier est bien deplacé

Version imprimable

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:

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

12/04/2006, 15h24
Megaxel

Quand tu dis

Citation:

cela ne fonctionne pas

, qu'est-ce que ça cache? Tu as une erreur (message?), ou tu n'as pas la bonne réponse?
Et tes variables rep1 et rep2, tu ne devrais pas y mettre un chemin complet, du genre "C:\Temp\Test1 ?
12/04/2006, 15h31
SfJ5Rpw8

essai :

Code:

if fs.Fileexist(...
12/04/2006, 15h47
Corben

Pour le déplacement du fichier cela fonctionne bien mais c'est la partie fileexist qui plante qui donne une erreur Type incompatible.

Merci BCP
12/04/2006, 15h59
Corben

Non cela ne marche pas cela donne l'objet ne gère pas fileexit.

Code:

if fs.Fileexist(...

Merci BCP
12/04/2006, 16h01
SfJ5Rpw8

lol ... erreur de frappe : il y en as plusieurs des fichiers

Code:

fs.FileExists(...

:lol:
12/04/2006, 16h32
Corben

cela marche nickel

Une petite question comment puis je récuperer l'heure et la date au format Y/m/d et séparement l'heure

Actuellement je fais fTemp.DateCreated qui me donne en une seule fois l'heure et la date

au format d/m/Y h:m:s

Un grand merci
12/04/2006, 16h46
Megaxel

Utilise Format( )

Code:

1
2
d = Now()
MsgBox Year(d) & "/" & Month(d) & "/" & Day(d)

12/04/2006, 17h18
Corben

c 'est l heure et la date du fichier que je v inserer dans une base de données.

avec fTemp.DateCreated j obtiens la date et l heure dd//mm/YYYY H:m:s

peut on l'avoir au format YYYY/MM/DD H:M:S

Merci BCP
12/04/2006, 17h23
Megaxel
N'ayant pas été entendu la première fois, je recommence:
Code:

1 2 d = Now() MsgBox (Format(d, "YYYY/MM/DD H:M:S"))
Maintenant, ce n'est que de l'affichage...

en VBS :

Code:

1
2
3
d = fTemp.DateCreated
 
MsgBox d & " ==> " & Year(d) & "/" & Month(d) & "/" & Day(d)& " " & Hour(d) & ":" & Minute(d) & ":" & second(d)

12/04/2006, 18h17
Corben

génial un grand grand merci