在VBA中实现LISP中findfile()函数功能

yangbingqi888

函数内容:
Function FindFile(strFile As String)

Dim PrefFile As AcadPreferencesFiles
Dim curSupportPath As String
Dim numPath As Integer
Dim strPath As String
Dim pathName As String
Dim PathTF As Boolean
Dim SearchPath As String
Dim appPath As string

Set PrefFile = ThisDrawing.Application.Preferences.Files
curSupportPath = PrefFile.SupportPath
PathTF = True
pathName = CurDir() & "\" & strFile
If Dir(pathName) = "" Then
    appPath = ThisDrawing.Application.Path
    PathName = appPath & "\" & strFile
    If Dir(pathName) = "" Then
        Do While PathTF
        numPath = InStr(1, curSupportPath, ";", 1)
        If numPath = 0 Then
            strPath = curSupportPath
            PathTF = False
        Else
            strPath = Left(curSupportPath, numPath - 1)
            curSupportPath = Right(curSupportPath, Len(curSupportPath) - numPath)
        End If
        pathName = strPath & "\" & strFile
        If Dir(pathName) <> "" Then
            SearchPath = pathName
            Exit Do
        End If
        Loop
        pathName = strPath & "\" & strFile
        If Dir(pathName) = "" Then
            SearchPath = ""
        End If
    Else
        SearchPath = pathName
    End If
Else
    SearchPath = pathName
End If
FindFile = SearchPath
End Function

  参数:

一个文件名

  注意:

在LISP中， findfile()函数的功能是在AutoCAD的当前目录、autoCAD目录及autoCAD的支持目录下查找所需的文件，如果找到文件，则返回文件的路径及文件名称，如不能找到文件，则返回空字符。
在VBA中，没有相应的函数来完成该功能，而必须使用绝对路径来引用文件，这就为VBA在autoCAD中的使用带来麻烦，有时你编制了一个VBA程序，并提供给用户，由于用户安装的路径和你程序调试的路径不同，致使程序运行出错。
这种情况会经常发生的，因为你无权要求用户必须将程序放在哪个固定的目录下。


  示例:

strPathFile = FindFile("tyl.ini")