Lancer un BAT en fonction du jour

Version imprimable

21/01/2011, 15h38
ramiko

Lancer un BAT en fonction du jour

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
21/01/2011, 18h37
hackoofr

Citation:

Envoyé par ramiko

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 ! :ccool:
21/01/2011, 18h46
SfJ5Rpw8

Quelques entrées de la :faq: 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"
21/01/2011, 19h22
l_autodidacte

Citation:

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.
25/01/2011, 10h22
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 :)

Code:

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