Parcours dossier et execution de batch
Le newbie
Messages postés
200
Date d'inscription
mardi 17 octobre 2006
Statut
Membre
Dernière intervention
24 mars 2012
-
17 oct. 2006 à 10:36
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 17 oct. 2006 à 12:23
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 17 oct. 2006 à 12:23
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
17 oct. 2006 à 12:23
17 oct. 2006 à 12:23
Bonjour à tous....
Un exemple, en vbs, que j'ai en production.
jean-marc
'Ce script lancé, en tâche planifiée se met en veille
'Un transfert de fichier (GCOS7->Server OxaLys) permet
'd'éxecuter la suite du script
'
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim FicTop : FicTop = "[file://\\Oxalys\OXALYS\Gcos7\Oxalys\TOP-DPR.top \\Oxalys\OXALYS\Gcos7\Oxalys\TOP-DPR.top]"
Do
If Fso.FileExists(FicTop) Then Fso.DeleteFile FicTop, True : Exit Do
'MsgBox "le fichier n'est pas présent..." &vbCrLf&_
' "attente de 10 mns avant de relancer le test" &vbCrLf& Now
WScript.Sleep(600000)
'MsgBox "re-boucle" &vbCrLf& Now,,"Vérification Sleep"
Loop
'MsgBox "Fichier Top présent",,"Autorisation pour continuer le script"
Un exemple, en vbs, que j'ai en production.
jean-marc
'Ce script lancé, en tâche planifiée se met en veille
'Un transfert de fichier (GCOS7->Server OxaLys) permet
'd'éxecuter la suite du script
'
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim FicTop : FicTop = "[file://\\Oxalys\OXALYS\Gcos7\Oxalys\TOP-DPR.top \\Oxalys\OXALYS\Gcos7\Oxalys\TOP-DPR.top]"
Do
If Fso.FileExists(FicTop) Then Fso.DeleteFile FicTop, True : Exit Do
'MsgBox "le fichier n'est pas présent..." &vbCrLf&_
' "attente de 10 mns avant de relancer le test" &vbCrLf& Now
WScript.Sleep(600000)
'MsgBox "re-boucle" &vbCrLf& Now,,"Vérification Sleep"
Loop
'MsgBox "Fichier Top présent",,"Autorisation pour continuer le script"