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

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

根据站内相关函数改编:


Sub dvbload()<BR>                       Dim i As Integer<BR>                       Dim objIDE As Object<BR>                       Set objIDE = Application.VBE<BR>                       ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)<BR>                       For i = 0 To objIDE.VBProjects.Count - 1<BR>                                                       If objIDE.VBProjects(i + 1).Name = "mytools" Then Exit Sub                       '1<BR>                       Next<BR>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

<p>name 是工程名称，filename 才是文件名，包含路径。</p><p>Sub dvbload()<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; Dim objIDE As Object<br/>&nbsp;&nbsp;&nbsp; Set objIDE = Application.VBE<br/>&nbsp;&nbsp;&nbsp; For i = 0 To objIDE.vbprojects.count - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print objIDE.vbprojects(i + 1).FileName<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print objIDE.vbprojects(i + 1).Name</p><p>&nbsp;&nbsp;&nbsp; Next<br/>End Sub<br/></p><p></p>
页: [1]
查看完整版本: 如何获得当前加载得dvb文件的文件名