Question

VB文件打开提示找不到路径

我的一个VB程序一拷到别的地方就会提示找不到路径，拷到U盘里面再打开也这样，我是整个文件夹一起拷的，压缩完再解压也是这样，有的时候连从电脑的这个盘存到另外一个盘都会打不开，希望高手来帮我解答一下

Answer 1

我也不知道为什么,反正我的都不会这样,有时候下载的源码就会这样,我估计应该和vb的选项有关系,一直都懒得去琢磨,先打开系统自带的记事本,再用记事本打开后缀为vbp的工程文件,把里面的绝对路径修改为相对路径试试

追问

我打开了Form=C:\Users\wangjia\Desktop\气驱采收率预测系统\气驱采收率预测系统V1.0.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation
Module=Module1; C:\Users\wangjia\Desktop\CO2预测\VBCode（宝益）\Module1.bas

Form=C:\Users\**\Desktop\CO2预测\VBCode（宝益）\MDIForm1.frm怎么改

追答

呵呵,真是养成了多问的好习惯啊,如下
Form=气驱采收率预测系统V1.0.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation
Module=Module1; Module1.bas

Form=MDIForm1.frm怎么改
修改后把两个窗体文件和一个模块文件都放在同一个目录里,怕只怕你要是再保存工程又出现绝对路径了,出现了还得再改,你试试看了...

追问

我试了一下，确实有用，不过我还是很疑惑，为什么会出现这样的问题呢，因为我之前从来没有碰到过这种情况，当然我接触VB也少，难道是有什么特定操作导致的吗，还是因为系统问题？高手请帮我讲讲，这问题困扰我好久啦，补充说明，这个文件我备份过很多次，有的文件没出问题，有的就这样了！

追答

如果你是新建的工程,保存时可以选择另存为,最好也只选择一次另存为,第二次就不要选择另存为,直接点vb工具栏里或者vb文件菜单里的保存就行了.如果点了保存后退出设计时仍旧询问是否保存,就点是,做到以上所说的应该就不会出现路径问题了.

Answer 2

相对路径设置：
msgbox loadpicture("1.jpg") '1.jpg在可执行文件所有文件夹内
msgbox loadpicture(”data\1.jpg“) '1.jpg在可执行文件夹内data文件夹内。

当然你可以使用app.path来做一个绝对的相对路径。

Answer 3

你里面引用的外部资源路径肯定出问题了，应该使用app.path，假设你的应用存在c:\test目录下面，有张图片存放在c:\test\pic目录下面，程序当中应该这样引用图片
app.path & "\pic\pic1.jpg"

Answer 4

不要用绝对路径，有VB提供的环境变量app.path返回你工程的路径

追问

怎么返回呢

追答

楼上不是写了代码的吗

dim file as string
file = app.path & "\1.txt"
msgbox file '这就是路径

Answer 5

app.path & "你文件位置"

追问

可是我文件会拷贝出来用，还是说在原始那份文件里面加这个代码呀