[VBA]如何的到.dvb文件的路径？

macula

VBA中，一个函数如何获取它本身所在的.dvb文件的路径？

如函数：function aPath() as string   存在于 d:\bbb\a.dvb 文件中，

则aPath 函数返回 "d:\bbb"  ?

王咣生

在AutoCAD2004下:

'取得当前应用程序路径
Private Function GetDvbPath() As String
    On Error Resume Next
    Err.Clear
   
    Dim strFilePath As String
    Dim strFileName As String
   
    strFileName = VBE.ActiveVBProject.FileName

    If Err Then
        strFilePath = ""
    Else
        Dim pos As Integer
        pos = VBA.InStrRev(strFileName, "\", -1, vbTextCompare)
        strFilePath = VBA.Left(strFileName, pos - 1)
    End If

    GetDvbPath = strFilePath
   
End Function

macula

明白了！多谢赐教！

sccat

如果是lsp文件呢?