Discussion :

[M4tthieu]

Bonjour tout le monde

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

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
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 ?

[SfJ5Rpw8]

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


voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  WScript.Sleep 100

[M4tthieu]

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


voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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'

[SfJ5Rpw8]

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

[M4tthieu]

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

Dans une page web, un code HTML

[omen999]

salut,
dans un contexte dhtml, l'objet wscript n'est pas accessible donc pas de méthode sleep
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[M4tthieu]

salut,
dans un contexte dhtml, l'objet wscript n'est pas accessible donc pas de méthode sleep
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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
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 !