1 svar · 147 visningar · startad av skyman
Hej.
Jag vill ha en loop som loopar tills en viss fil existerar eller tills det har gått 10 sekunder.
Att loopa till typ "ett jätte-högt tal" är inte så bra eftersom den då håller servern i sitt grepp...Grund:
while f1.FileExist (server.mappath("..\rbok\filen.txt") 'och en timer som är mindre än 10...
'timer
doevents
wend
Har lyckats göra en pausfunktion ivf... Då är jag nästa framme.
function pause(seconds)
Dim PauseTime, Start, Finish, TotalTime
PauseTime = seconds ' Set duration.
Start = Timer ' Set start time.
While Timer < Start + PauseTime
x=doevents
wend
end function