I was able to resolve the issue by using this code:
Code:
''FindFile by Bob Wahr now of theSwamp.org, as found on cadvault.com
Public Function FindFile(strFile As String)
'Dimension Variables
Dim strSupPth As String
Dim varPaths As Variant
Dim intCnt As Integer
Dim strFnd As String
Dim strTest As String
Dim strDwgDir As String
'Get path information
strSupPth = ThisDrawing.GetVariable("acadprefix")
strDwgDir = ThisDrawing.GetVariable("dwgprefix")
strTest = Dir(CurDir & "\" & strFile, 31)
'Search for file sequentially in path information.
If strTest <> "" Then
strFnd = CurDir & "\" & strTest
Else
strTest = Dir(strDwgDir & "\" & strFile, 31)
If strTest <> "" Then
strFnd = strDwgDir & "\" & strFile
Else
If strSupPth <> "" Then
varPaths = Split(strSupPth, ";", -1, vbTextCompare)
For intCnt = 0 To UBound(varPaths)
strTest = Dir(varPaths(intCnt) & "\" & strFile, 31)
If strTest <> "" Then
strFnd = varPaths(intCnt) & "\" & strFile
Exit For
End If
Next intCnt
End If
End If
End If
FindFile = strFnd
End Function
This code builds the complete file path for the desired file and outputs a string with that data. It can be used to open drawings, insert blocks, etc. This seems to apease the appetite of whatever ACAD 07 is looking for. Since I started using this I haven't had the error anymore.
Hope this helps!
MC