Pause system while file downloads

[AvGuy]

Using Access97 I want to pause code in an event procedure until a file downloads from the net. I'm using the FollowHyperlink method to access a zip file. After it downloads I can use Shell/Wait to unzip the file, but need a method to pause the code during the actual download procedure. I'm experimenting with DoEvents and with OnTimer routine, but haven't found a way to make it work yet.

Any tips?

AvGuy

 

[zevw]

I would create a Do while loop with a check if the file exists already and then set a flag when the file is there.

something like this:

Dim flag

flag = "N"

Do while flag = "N"
if Dir<filename> <> &quot;&quot; Then
flag = &quot;Y&quot;
end if
Loop

 

[psemianonymous]

I say it is *essential* that inside the loop you put a &quot;DoEvents&quot; line. This will keep your system responsive to mouse movements and the like, instead of (seemingly) locking up your computer.

But essentially, do the above loop with some sort of flag that you can check.

 

[AvGuy]

Thanks. I had pretty much worked this out since posting the query. However, this process won't work perfectly if using a self-extracting WinZip file because extraction occurs under the DoEvents umbrella which masks the check for the .exe file. In other words, if checking for an .exe file, the process will miss it because it disappears almost instantly since the file name changes as the first step of extraction. By including both the exe and the extracted file names in the conditional the process seems to work, viz:

Dim Flag As Boolean
Flag = False
Do While Flag = False
DoEvents
If Len(Dir({Path & File with .exe} > 0 OR Len(Dir({Path & file with .mdb}) > 0 then
Flag = True
End If
Loop
x = ShellWait({Path & file with .exe})

Just make sure you kill these names in the target folder before running the routine.

Cheers