[VBSCRIPT] Faire une boucle qui dure quelques secondes

Bonjour tout le monde

Voila je voudrais creer une boucle qui dure quelques secondes.
Voici mon script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

<script language=vbscript> <!-- Sub buttongReceiptData_OnClick() objet.Fonctionquicreeundossieryyyymmdd()   if (Month(now) < 10 ) then m = "0" + Cstr(Month(now)) else m = Cstr(Month(now)) end if if (Day(now) < 10 ) then d = "0" + Cstr(Day(now)) else d = Cstr(Day(now)) end if   temp = Cstr(Year(now)) + m + d Open("C:\VIDEOARCHIV\" + temp) end sub --> </script>

---

Le probleme est que le dossier n est pas cree assez rapidement, et lors de l execution de cette ligne: Open("C:\VIDEOARCHIV\" + temp) , le dossier n est pas present sur mon disque dur.

J avais donc pense a une boucle qui dure quelques secondes avant cette ligne, comme ca le dossier aurait le temps d etre cree.

Savez vous si une telle chose est possible ?

c'est quoi : Open("C:\VIDEOARCHIV\" + temp) :koi: ..? c'est pas du vbScript..?


voir :

Code:

---

1 2	WScript.Sleep 100

---

Citation:

---

Envoyé par bbil

c'est quoi : Open("C:\VIDEOARCHIV\" + temp) :koi: ..? c'est pas du vbScript..?


voir :

Code:

---

1 2	WScript.Sleep 100

---

---

Bonjour :)

Alors Open("C:\VIDEOARCHIV\" + temp) ca ouvre le dossier C:\VIDEOARCHIV\ceQueContienttemp, donc pour aujourd'hui par exemple ca ouvre C:\VIDEOARCHIV\20070627

Ensuite, j'ai essaye votre commande:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

<script language=vbscript> <!--   Sub buttongReceiptData_OnClick() objet.Fonctionquicreeundossieryyyymmdd() WScript.Sleep 100 if (Month(now) < 10 ) then m = "0" + Cstr(Month(now)) else m = Cstr(Month(now)) end if if (Day(now) < 10 ) then d = "0" + Cstr(Day(now)) else d = Cstr(Day(now)) end if   temp = Cstr(Year(now)) + m + d Open("C:\VIDEOARCHIV\" + temp) end sub --> </script>

---

Et je recois le message d'erreur Error: Object required:'WScript'

8O

vous l'exécutez comment ce script ..?

Citation:

---

Envoyé par bbil

vous l'exécutez comment ce script ..?

---

Dans une page web, un code HTML

salut,
dans un contexte dhtml, l'objet wscript n'est pas accessible donc pas de méthode sleep :aie:
dans le modèle objet dhtml, il existe une méthode setTimeout qui n'équivaut pas vraiment à la méthode sleep
puisqu'elle crée un nouveau thread mais qui pourrait donner ceci:

Code:

---

1 2 3 4 5 6 7

... temp = Cstr(Year(now)) + m + d window.setTimeout("openTmpFile",2000) 'exemple 2000 ms end sub function openTmpFile() Open("C:\VIDEOARCHIV\" + temp) end function

---

maintenant, pour réaliser un vrai sleep sans éreinter le cpu il existe aussi
l'appel api de la fonction sleep du kernel32.dll :king:

Citation:

---

Envoyé par omen999

salut,
dans un contexte dhtml, l'objet wscript n'est pas accessible donc pas de méthode sleep :aie:
dans le modèle objet dhtml, il existe une méthode setTimeout qui n'équivaut pas vraiment à la méthode sleep
puisqu'elle crée un nouveau thread mais qui pourrait donner ceci:

Code:

---

1 2 3 4 5 6 7

... temp = Cstr(Year(now)) + m + d window.setTimeout("openTmpFile",2000) 'exemple 2000 ms end sub function openTmpFile() Open("C:\VIDEOARCHIV\" + temp) end function

---

maintenant, pour réaliser un vrai sleep sans éreinter le cpu il existe aussi
l'appel api de la fonction sleep du kernel32.dll :king:

---

Merci beaucoup, grace a ton message et a ce site, j ai trouve la soluce :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

<script language=vbscript> <!--   Dim temp   Sub buttongReceiptData_OnClick()   Objet.Fonctionquicreeundossieryyyymmdd()   if (Month(now) < 10 ) then m = "0" + Cstr(Month(now)) else m = Cstr(Month(now)) end if if (Day(now) < 10 ) then d = "0" + Cstr(Day(now)) else d = Cstr(Day(now)) end if   temp = "C:\VIDEOARCHIV\" + Cstr(Year(now)) + m + d idTimer = window.setTimeout("PausedSection",1000, "VBScript") end sub   Sub PausedSection Open(temp) End Sub --> </script>

---

Le probleme n'etait pas tres important, mais c'est tout de meme plus sympa d'avoir une page de test qui tourne sans erreur :)

Merci encore !