社区 › VB › 如何获得当前加载得dvb文件的文件名

mikewolf2k 发表于 2004-3-17 18:53:00

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

根据站内相关函数改编:
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 发表于 2004-3-17 19:31:00

Application.VBE.activevbproject.FileName

mccad 发表于 2004-3-17 20:06:00

用objIDE.VBProjects(i + 1).FileName

mikewolf2k 发表于 2004-3-18 18:55:00

老大,没有filename属性?

mufeng 发表于 2007-8-8 13:57:00

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

查看完整版本: 如何获得当前加载得dvb文件的文件名