'This is for anyone who wants to know about the<br>
'FindFirstFile. Your sub will work fine but the<br>
'lpFileName$ (Your FileToFind$) requires the full<br>
'path.<br>
<br>
Public Function FindFile(FileToFind as String)as String<br>
Dim A as long<br>
A& = FindFirstFile(FileToFind$...
I use something like this.<br>
<br>
<br>
Sub Pause(interval)<br>
<br>
X = Timer<br>
<br>
While Timer - X < Val(interval)<br>
DoEvents<br>
Wend<br>
<br>
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.