[求助]：如何获得dvb文件的路径

gjliang

由于我是用vba调用外部块，每次安装到不同的电脑，外部块的绝对路径都要改变，我想请问一下如果获得dvb文件的路径，这样的话就可以方便的获得外部块的绝对路径了。
看来没有人遇到过这个问题，我想了个解决办法：
Dim oVbe As Object  
Dim aa As Variant
Dim bb As String
Dim a As Integer
Dim b As Integer
Dim c As Integer
Set oVbe = Application.VBE
aa = oVbe.VBProjects(1).FileName '获得当前dvb文件路径及文件名
a = Len(aa) '获得全部路径的字段长度
bb = "jingtong.dvb" '定义当前文件的名称
b = Len(bb) '获得当前文件名的字段长度
c = a - b      '用全部字段长减去文件名字段长度
Dim aaa As String
aaa = Left(aa, c) '获得当前dvb文件存放的路径
我的这个方法自己认为不好，因为我在2002，2004，2005上测试时均能通过，但是当换了一台电脑后就又出现调用外部块无法找到路径的问题！哪位高手有好的办法还麻烦告知，谢谢了！