Faire une boucle qui dure quelques secondes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Faire une boucle qui dure quelques secondes

Profil supprimé

Bonjour tout le monde

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

Code :

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

Message édité par Profil supprimé le 27-06-2007 à 12:16:00

Publicité

Profil supprimé

Ou peut etre un sleep, quelque chose dans le genre ?

Je trouve pas :s

Profil supprimé

Sachant que le sleep ne fonctionne pas

genre sleep 1000

J ai un message d'erreur: Type mismatch: 'sleep'

jpcheck

Pioupiou

do while dir(tonfichier)<>""
loop

Message cité 1 fois

Profil supprimé

jpcheck a écrit :

do while dir(tonfichier)<>""
loop

Le probleme est que je ne connais pas le nom du fichier, il est cree aleatoirement

enfin quand je tente ca:

Code :

<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
do while dir("C:\VIDEOARCHIV\" + temp + "\*.jpg" ) <> ""
loop
Open("C:\VIDEOARCHIV\" + temp)
end sub
-->
</script>

Internet Explorer me sort le message d erreur suivant : Error: Type mismatch: 'dir'

:pt1cable:

Message édité par Profil supprimé le 27-06-2007 à 19:33:33

galopin01

Oups !

Message édité par galopin01 le 27-06-2007 à 21:54:08

jpcheck

Pioupiou

deja, j'avais po vu que c'était pour vbscript... galopin tu as une idée ?

galopin01

Non, j'étais parti sur DoEvents, mais vbscript n'est pas ma tasse de thé, c'est pourquoi j'ai supprimé...

Message cité 1 fois

masklinn_

galopin01 a écrit :

Non, j'étais parti sur DoEvents, mais vbscript n'est pas ma tasse de thé, c'est pourquoi j'ai supprimé...

Code :

Function GoSleep(seconds)
'
' Check the Windows Script Host Version.
'
wsv = WScript.Version
'
' If it's 5.1 or newer, use the built-in Sleep command,
' since it might be more reliable or better-performing.
'
if wsv >= "5.1" then
WScript.Sleep(seconds * 1000)
else
'
' If the version isn't at least 5.1, use a quick-and-dirty
' method of determining the elapsed time since the function
' was called.
'
startTime = Time() ' gets the current time
endTime = TimeValue(startTime) + TimeValue(elapsed) ' calculates when time is up
'
' While the current time is less than the calculated end time,
' add zero to x.
'
While endTime > Time()
'
' If there's nothing in here but a comment, the while
' doesn't seem to process correctly, so we'll just tell
' VBScript that we need it to let Windows do other things
' for a little while...
'
DoEvents
Wend
end if
End Function

Profil supprimé

Salut

Alors voila mon code:

Code :

<script language=vbscript>
<!--
Function GoSleep(seconds)
wsv = WScript.Version
if wsv >= "5.1" then
WScript.Sleep(seconds * 1000)
else
startTime = Time()
endTime = TimeValue(startTime) + TimeValue(elapsed)
While endTime > Time()
DoEvents
Wend
end if
End Function
Sub buttongReceiptData_OnClick()
objet.Fonctionquicreeundossieryyyymmdd()
GoSleep(3)
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>

Ca ne fonctionne toujours pas, message d'erreur: Object required:'WScript'

J'oublie peut etre d'inclure quelque chose ? Ou alors j'insere la fonction au mauvais endroit ?

Message édité par Profil supprimé le 28-06-2007 à 15:12:38

Publicité

MagicBuzz

regarde "objet.Fonctionquicreeundossieryyyymmdd()" histoire de la faire tourner en synchrone surtout.

effectivement, si tu crées un dossier avec FSO par exemple, t'as pas de problème, car "CreateDirectory()" te rend la main quand le répertoire est effectivement créé.

Message cité 1 fois

Profil supprimé

MagicBuzz a écrit :

Elle tourne en synchrone oui :jap:

MagicBuzz

Ben c'est bizarre ton histoire... Si c'est synchrone, alors à la sortie de l'appel le répertoire doit être créé, sinon y'a un léger souci...

Message cité 1 fois

Profil supprimé

MagicBuzz a écrit :

Ben c'est bizarre ton histoire... Si c'est synchrone, alors à la sortie de l'appel le répertoire doit être créé, sinon y'a un léger souci...

Oui, le dossier est correctement cree, c'est juste qu'avec la suite du script quand je clique sur le bouton, le dossier n'a pas le temps d'etre cree lorsque la ligne qui l'ouvre s'execute tu vois ?

MagicBuzz

non justement je vois pas

tu me dis que la fonction qui crée le dossier est synchrone. donc si c'est le cas, c'est impossible ce que tu me dis, puisque la fonction rendra la main quand le dossier aura effectivement été créé sur le disque, et pas avant...

pour moi c'est dans ta fonction qu'il faut que t'aille voire ce qu'il se passe

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Faire une boucle qui dure quelques secondes

Sujets relatifs
[PHP] Problème de boucle et menu	Boucle sur fonction mail()
boucle for a l'interieur d'un select case possible en vb6?[RESOLU]	[aide] probleme de boucle
Problème de création de boucles	réutiliser une variable dans une boucle --> global?
Executer une action toute les X secondes	[C] Boucle while qui bug!
Conversion durées -> secondes sur un fichier avec sed	[Résolu]Boucle et lecture de fichiers...
Plus de sujets relatifs à : Faire une boucle qui dure quelques secondes

Page générée en 0.079 secondes