how to find Excel file exist or not in vbscript code

[akhandesh]

Hi,

I am getting the below error : when i execute the below code that i have written in Function library.

General Run Error
Function file: C:\Program Files\HP\QuickTest Pro

Code:

Function FindObject(ObjectName)

Set desc=description.Create

For j=1 to datatable.GetSheet("OR1").GetRowCount

datatable.GetSheet("OR1").SetCurrentRow(j)

If datatable("name","OR1")=ObjectName Then

If datatable("micclass","OR1")<>" " Then
desc("micclass").value=datatable("micclass","OR1")
End If

'     If datatable("html id","OR1")<>" " Then
'     desc("micclass").value=datatable("html id","OR1")
'     End If

If datatable("class","OR1")<>" " Then
desc("micclass").value=datatable("class","OR1")
End If

If datatable("innertext","OR1")<>" " Then
desc("micclass").value=datatable("innertext","OR1")
End If

Set obj=Browser("creationtime:=0").page("title:=.*").ChildObjects(desc)

FindObject=obj(0)
'obj1=FindObject(obj)

End If

Next
End Function