如何获得当前加载得dvb文件的文件名

mikewolf2k

根据站内相关函数改编: Sub dvbload()
Dim i As Integer
Dim objIDE As Object
Set objIDE = Application.VBE
ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)
For i = 0 To objIDE.VBProjects.Count - 1
If objIDE.VBProjects(i + 1).Name = "mytools" Then Exit Sub '1
Next
End Sub 注释1处的name不是自己的mytools.dvb,而是acadproject,请问如何修改才能获得加载的dvb文件名?

subtlation

Application.VBE.activevbproject.FileName

mccad

用objIDE.VBProjects(i + 1).FileName

mikewolf2k

老大,没有filename属性?

mufeng

name 是工程名称，filename 才是文件名，包含路径。

Sub dvbload()
    Dim i As Integer
    Dim objIDE As Object
    Set objIDE = Application.VBE
    For i = 0 To objIDE.vbprojects.count - 1
        Debug.Print objIDE.vbprojects(i + 1).FileName
        Debug.Print objIDE.vbprojects(i + 1).Name

    Next
End Sub