dowhile file doesnt exist

[jonis2144]

hey all I cant seem to get this code to work. Im trying to make my program wait for my shell to finish ( i shell winzip and it creates a zip file) So i need the program to wait until it creates the actual file.
Heres what i got

ZipName = frmOptions.txtZipTo.Text
        Do While Dir(ZipName) = ""
        DoEvents
        Wait
    Loop

Why wont this work?

 

[jonis2144]

anyone?

 

[Norris68]

Private Function WaitForFileCreation(Filename As String, Optional Timeout As Long = 60) As Boolean
Dim StartTime As Date
StartTime = Now()
Do While (Dir(Filename) = &quot;&quot;) And (DateDiff(&quot;s&quot;, StartTime, Now()) < Timeout)
    DoEvents
Loop
WaitForFileCreation = (Dir(Filename) <> &quot;&quot;)
End Function

Private Sub Command1_Click()
If WaitForFileCreation(&quot;C:\wait.txt&quot;, 20) Then
    MsgBox &quot;File Created&quot;
Else
    MsgBox &quot;Timeout occurred&quot;
End If
End Sub

... works for me.

For code to wait until the shelled application has finished see faq222-428

 

[sunaj]

Hi,

You should use ShellExecute and WaitForSingleObject to wait for a shelled program to finish.

See

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q129796

and/or

faq222-428 Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'