How to quit from a loop ?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

javiernews - 19 Dec 2006 23:04 GMT

Hi,

How to quit form the following loop after 15 seconds if Not success ???????

Do While lngprgID = 0
' Quit after 15 seconds if No success
DoEvents
lngprgID = Shell(strCommand, vbNormalFocus)
Loop

Thank you !

Javier

Reply to this Message

John Spencer - 20 Dec 2006 12:57 GMT

Try something like

Dim dteEndTime As Date
dteEndTime = DateAdd("s", 15, Now())

Do While lngPrgId = 0 And dteEndTime > Now()
DoEvents
lngPrgID = Shell(strCommand,vbNormalFocus
Loop

> Hi,
>
[quoted text clipped - 10 lines]
>
> Javier

Reply to this Message

BeWyched - 20 Dec 2006 13:14 GMT

Try:

StartTime = Now

> > Do While lngprgID = 0
> > ' Quit after 15 seconds if No success
> > DoEvents
> > lngprgID = Shell(strCommand, vbNormalFocus)

If (Now - StartTime) * 24 * 3600 > 15 then Exit Sub

> > Loop

> > Hi,
> >
[quoted text clipped - 10 lines]
> >
> > Javier

Reply to this Message

javiernews - 20 Dec 2006 17:09 GMT

BW and John !

Thank you !!
Both ways are working good.

Bye

Reply to this Message