File In Use? 1

[zzfive03]

I am using VB 6.0 I have a loop that creates PDF files.

After the file is created with Distiler, I move it to a location on the hard drive. The problem I have is when I use FSO, I check with FSO.FileExists() But just because the file exists, does not mean it is finished being built. I usualy get a "permission denied" error.

Is there an API call I can do before I preform work on the file that can tell if the file is in use?

Example:

BuildPDF("C:\temp.pdf&quot ' (existing func)

WaitForFileToBecomeNotInUse("C:\temp.pdf&quot ' (ideal func)
' - - continue with my process

Any help on this would be great.
THank you, Mark

 

[DrJavaJoe]

Try this function:

Public Function IsOpen(strFileName As String) As Boolean
Dim FileNum As Long
On Error GoTo OpenError
FileNum = FreeFile
Open strFileName For Input Lock Read Write As FileNum
Close FileNum
Exit Function
OpenError:
IsOpen = True
End Function

 

[zzfive03]

Thanks a lot, I think that will work nicely.

--Mark

 

[DrJavaJoe]

Glad that I could help.