Discussion :

[teckteck]

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 :

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

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

[pitchalov]

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 :

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

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 :

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

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