Discussion :

[Corben]

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

[Megaxel]

Quand tu dis

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 ?

[SfJ5Rpw8]

essai :

Code :

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

if fs.Fileexist(...

[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

[Corben]

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

Code :

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

if fs.Fileexist(...

Merci BCP

[SfJ5Rpw8]

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

Code :

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

fs.FileExists(...

[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

[Megaxel]

Utilise Format( )

[SfJ5Rpw8]

Code :

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

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

[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

[Megaxel]

N'ayant pas été entendu la première fois, je recommence:

Code :

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

1
2
d = Now()
MsgBox (Format(d, "YYYY/MM/DD H:M:S"))

Maintenant, ce n'est que de l'affichage...

[SfJ5Rpw8]

en VBS :

Code :

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

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

[Corben]

génial un grand grand merci