DVB 文件路径

'*********************************************************************************************
'获得当前DVB文件路径****************************************************************************
Public Function GetPath() As String
    '获得Cad安装路径
    'MsgBox Application.FullName & Application.Path
    '获得当前的工程路径
    Dim StrPath, i As Integer, temp As String

    StrPath = ThisDrawing.Application.VBE.ActiveVBProject.filename
    '解析工具栏按钮图标路径
    For i = Len(StrPath) To 1 Step -1
        temp = Mid(StrPath, i, 1)
        If temp = "/" Or temp = "\" Then Exit For
    Next i
    GetPath = Left(StrPath, i)
End Function
'*********************************************************************************************

获得已经加载的所有DVB文件的路径和名称
下面的是从明经CAD上面引用的。
http://www.vba.cn/bbs/Archive_view.asp?boardID=4&ID=20229

Public Function GetVBAProjects()

    Dim i As Long, projects() As String

    Dim objIDE As Object

    Set objIDE = Application.vbe

    ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)
  On Error Resume Next
    For i = 0 To objIDE.VBProjects.Count - 1
        projects(i, 0) = objIDE.VBProjects(i + 1).Name
        projects(i, 1) = objIDE.VBProjects(i + 1).FileName
    Next

    GetVBAProjects = projects

End Function

[本日志由田草于 2007-02-07 01:24 PM 编辑]

分享到： QQ空间新浪微博腾讯微博微信更多

暂时没有评论

发表评论 - 不要忘了输入验证码哦！

作者：

用户：密码：注册？验证：