回 帖 发 新 帖 刷新版面

主题:改变目录

请教高人VB如何改变目录?
假如我用对话框打开一个文件(文件不在VB工程这个目录),如果我想用代码改变回原来VB工程的目录,该如何?
谢谢!

回复列表 (共8个回复)

沙发

CommonDialog1.InitDir = "e:\"  '设置你想要的初始目录路径
CommonDialog1.showopen

板凳

谢谢LS的解答
这个方法我试过,但是没有到达我想要的效果
有可能我没说清楚
我想要的效果是对话框打开后,选中文件后,希望可以把目录改成VB工程的目录,请问有什么办法!

3 楼

你的意思是不是把选中的文件名加到工程目录之后?如果是,就这样:
工程所在的目录可表示为:app.path
剥离选中的文件名:fName=mid(CommonDialog1.FileName,InstrRev(CommonDialog1.FileName,"\"))
再添加到路径中:fName=app.path & fName

4 楼

不是
我的意思是
假如我的VB工程目录是 D:\vb\
我要找的文件目录是E:\file\
如何找完文件后把目录还原成D:\vb\

5 楼

运行时先获得当前路径.也就是你要的工作路径.
保存好现在 的路径 .
调用打开文件对话框.
获得目标文件后.
再改回来.

6 楼

谢谢LS的
我也用过这个方法,但是没有效果
我现在的问题就是我有个窗体是连接数据库的,连接数据库采用的是相对路径,数据库与VB工程放在同一目录,假如我操作其他程序离开VB工程的目录,再运行带有数据库的窗体,那么数据库的路径就出错了
我发现个问题就是我用对话框打开其他目录文件时,我的App.path依然不变还是VB工程的目录,但是数据库还是提示路径出错,说明对话框打开文件的路径和App.path是不同步的,那如何解决这个问题,谢谢!

7 楼

问题解决
结帖!

8 楼

把你要用的路径都保存好.要用的时候再弄回来.

要不就使用INI文件.
动态调用.
在里面写上绝对路径.

我来回复

您尚未登录,请登录后再回复。点此登录或注册