例如 Private Declare Function aaa Lib "D:\XX\aaa.dll" () As Long如何将D：\XX 替换为app,path呢我试了几次 都是错误

app.path+"aaa.dll"

楼上的不对应该是app.path+"\aaa.dll"app.path只是：“D:\XX”

有错误 没有发现常量

我就是向3楼所写的 有错误

'你的exe 要与aaa.dll放在同一个文件夹dim appdisk as string,fname as string'上面这行你可以放在窗体的最上面通用区,如此appdisk在这个窗体都通用'或'Global appdisk as string,fname as string'上面这行如果你是放在启动模块.bas，则appdisk在这个系统的所有窗体都通用appdisk=trim(app.path)if right(appdisk,1)<>"\" then appdisk=appdisk & "\"fname=appdisk & "aaa.dll"

还是谢谢问题解决了 开心

晕用app.path干什么?Lib先是在%systemroot%\system32(或system32)下寻找，然后在（……），最后才在app.path下寻找，所以不用app.path了所以Private Declare Function aaa Lib "aaa.dll" () As Long 就可以了