How do you check for value "<Path not found>"

[crewaustin66]

I have some VBA code that exports the source code to a file. The following statement is giving me a problem:

if len(vbproj.Collection(i).fileName)>0 then
'Do something
end if

Unfortunately, looking at the vbproj object I find that vbproj.FileName shows in the watch box as Path not found
. It says that is an integer but it doesn't show a value.

How can I test for this "value" so that I can use it in an IF/END IF?

Thanks,
Crew</path>

 

[shg]

  Dim sFile         As String

  On Error Resume Next

  ' ...
  sFile = vbproj.Collection(i).Filename
  If Err.Number Then
    Err.Clear
    ' do something
  Else
    ' do something else
  End If
  ' ...

 

[crewaustin66]

Thanks for the shg. I found a different solution since posting that. I'll post it here for others to find as well.

    Set vbproj = Workbooks(projectFileName).VBProject
    tn = vbproj.Collection(projectName).fileName
    If VarType(tn) <> 8 Then Exit Function ' Bad project filename = <Path not found>

</path>