how to check state of a file?

[simran1]

Hi,

I have this code to open a tif file.

    If App Is Nothing Then
        Set App = CreateObject("imaging.application")
    End If
    If Img Is Nothing Then
        Set Img = App.createimageviewerobject(1)
    End If
    strPath = File1.Path & "\" & File1.Filename
    Img.Open strPath

Before I open the file using "Img.Open" i would like to know if the file is already open. Because, if the file is open i get a run time error, wwhich i want to avoid.
Please help.

 

[CCLINT]

Maybe you need to just use an Error handler (On Error Goto) [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[simran1]

Hi,
But is there a way to just check the state of a file, if the file is open or close.

 

[vb5prgrmr]

Yes, you can try to open the file exclusivly. If you are successful then there is not a lock on it.

[tt]
Option Explicit

Private Sub Form_Load()
If CanOpenFile("c:\z\out1.xls&quot = True Then
MsgBox "Able to have exclusive rights to file"
Else
MsgBox "File open by another application"
End If
End Sub

Public Function CanOpenFile(PathToFile As String) As Boolean

On Error GoTo CanOpenFileError

Dim FNumb As Integer

If Dir(PathToFile) = "" Then Exit Function

FNumb = FreeFile

Open PathToFile For Input Lock Read Write As #FNumb
Close #FNumb

CanOpenFile = True

Exit Function
CanOpenFileError:

Err.Clear

Close #FNumb

End Function

[/tt]

 

[strongm]

In which case, as CCLINT says, you might as well use an error handler in the original routine.