|
|
我的DVB文件是存在D:\CADFZ\***.DVB的,
我用下面的代码获取路径D:\CADFZ\
Dim strFileName As String
strFileName = VBE.activeVBproject.FileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
MsgBox strFileName
GetSupportPath = Left$(strFileName, InStrRev(strFileName, "\"))
但是实际运行中,通过VBA調试运行确实是获到D:\CADFZ\
但是通过CAD样来运行,就会是变成这个路径C:\Users\ADMINI~1\AppData\Local\Temp\是什么原因?
|
|
置顶卡
