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