vbs script problème de copier le fichier dans le répertoire créé

bonjour,
j'ai un problème avec mon script : ******* Sel_ZG_Resultat.txt the file is not copied to the folder "c: \ Photo_" & Year (Now ())

Code:

---

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

Dim shell Set shell = CreateObject("WScript.Shell")     dim Rapport, folder, filesys Rapport = "C:\Photo_" & Year(Now())   set filesys= createObject("Scripting.FileSystemObject") if not filesys.FolderExists(PhotoRapport) then Set folder = filesys.CreateFolder(PhotoRapport) end if     shell.run "sqlcmd -U MonJa -d Ja_Test -m-1 -P azerty -S Ja-devSQL -p1 -i C:\ja\rap\Sel_ZGF.sql -o folder\Sel_ZG_Resultat.txt",2, true

---

Bonjour,

Plusieurs points ne vont pas dans ton script :
- tu initialise une variable Rapport que tu n'utilises pas par la suite, et après tu fait appel à une variable PhotoRapport qui n'existe pas
- l'objet folder n'est initialisé que si le dossier n'existe pas --> si le dossier existe (mais ce ne sera pas le cas avec l'utilisation de Now, à moins que tu le lances plusieurs fois par seconde), ça ne marchera pas. Au cas où plus tard tu utiliserais autre chose que Now (Date par exemple), on va garder l'idée de base que si le dossier existe on bosse avec.
- la variable folder contient un objet. Donc si veux mettre son chemin dans ta commande, il faut faire appel à la propriété Path de l'objet (sinon tu auras une erreur d'incompatibilité de types quant tu voudrasl'insérer dans une string)
- dernière chose : en vbscript, si tu veux insérer une variable dans une string (ici ta ligne de commande), tu dois faire de la concaténation de strings avec le symbole "&" par exemple.

Non testé, mais ça devrait t'avancer (en reprenant ton code) :

Code:

---

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

Dim shell Set shell = CreateObject("WScript.Shell")   dim Rapport, folder, filesys Rapport = "C:\Photo_" & Year(Now())   set filesys= createObject("Scripting.FileSystemObject") if not filesys.FolderExists(Rapport) then Set folder = filesys.CreateFolder(Rapport) else Set folder = filesys.GetFolder(Rapport) end if   shell.run "sqlcmd -U MonJa -d Ja_Test -m-1 -P azerty -S Ja-devSQL -p1 -i C:\ja\rap\Sel_ZGF.sql -o " & folder.path & "\Sel_ZG_Resultat.txt",2, true

---

En un peu mieux :

Code:

---

1 2 3 4 5 6 7 8

Dim shell, Rapport, filesys Set shell = CreateObject("WScript.Shell") set filesys= createObject("Scripting.FileSystemObject")   Rapport = "C:\Photo_" & Year(Now()) if not filesys.FolderExists(Rapport) then filesys.CreateFolder Rapport   shell.run "sqlcmd -U MonJa -d Ja_Test -m-1 -P azerty -S Ja-devSQL -p1 -i C:\ja\rap\Sel_ZGF.sql -o " & Rapport & "\Sel_ZG_Resultat.txt",2, true

---

Bonne continuation