Discussion :

[ramiko]

Bonjour à tous !!

Bon je suis vraiment un noobs en prog, et je cherche un moyen de lancer un script bat en fonction du jour

En fait j'ai 5 scripts (en batch) qui correspondent au jour de la semaine du lundi au vendredi donc, et j'aimerai avoir un scipt vbs qui permets de chercher ces batchs en fonction du jour

comme dit je n'y connais absolument rien, donc même des idées de départ sont les bienvenue après s'il faut creuser je creuse !!

Merci d'avance pour vos réponses !!
Ramiko

[hackoofr]

En fait j'ai 5 scripts (en batch) qui correspondent au jour de la semaine du lundi au vendredi donc, et j'aimerai avoir un script vbs qui permet de chercher ces batchs en fonction du jour

Salut
Pour Commencer à t'aider et pour voir plus clair tes idées; Peut-tu tout d'abord nous fournir ces 5 scripts (en batch) ?
Merci !

[SfJ5Rpw8]

Quelques entrées de la qui devrait t'aider :


Comment récupérer le nom du jour de la semaine dans une variable ?


Manipulation des chaînes de caractères : ce chapitre devrait te permettre de créer la chaine commande à lancer ...

pour finir :
Comment exécuter un programme externe ? , pour un bat il faut peu-être précéder ton appel par un "cmd /C"

[l_autodidacte]

pour un bat il faut peut-être précéder ton appel par un "cmd /C"

dans le cas où le fichier aurait une taille nulle sinon on peut s'en passer.

[dadidodu]

Le batch fait une sauvegarde d'une base SQL, et ensuite un robocopy pour copier les données vers un autre répertoire, donc un script par jour pour avoir les données sur plusieurs jours

Merci pour vos conseils je vais étudier ça

[l_autodidacte]

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
Option Explicit
Dim fso, Fich,Fold,WS
 
 Set WS=CreateObject("Wscript.Shell")
 Set fso=CreateObject("Scripting.FileSystemObject")
 Set Fold=fso.GetFolder("C:\temp\")
    For Each Fich in Fold.Files
	   If Ucase(Fich.Name)=Ucase(WeekDayName(WeekDay(Now))+".bat") Then
	      WS.Exec Fich.Path
         '  tu peux mettre un Rem au début de la ligne suivante :
		  Msgbox "Fichier [" & Fich.Path & "] exécuté avec succès" 
	     Exit For
	   End If
   Next  
Set WS = Nothing
Set fso = Nothing