改变目录

Question

请教高人VB如何改变目录？
假如我用对话框打开一个文件（文件不在VB工程这个目录），如果我想用代码改变回原来VB工程的目录，该如何？
谢谢！

Answer 1

Private Sub Command1_Click()
CommonDialog1.InitDir = "c:\"  '自己设定. app.path 为程序所在目录
CommonDialog1.ShowOpen
End Sub

Answer 2

试了以后没有看到我要的效果
刚刚去试了以后，找到文件后，目录还是停留在所找文件的目录，只有重新启动工程以后才是原来VB工程的目录，我要的效果是不重新启动工程，找到文件后，就自动返回原来VB工程目录
再次谢谢大家，看看大家有什么方法没？

Answer 3

不可能啊，你怎么写的代码？
应该来说每次showopen前，设置initdir后
那么打开来的窗口的目录肯定是initdir啊

Answer 4

这是其中的一个代码，是备份数据库的，我单击在backup文件夹备份好数据库，再备份的话，对话框就在backup目录了
Private Sub backup_Click()
 Dim mfile As String, mfile2  As String
  On Error Resume Next
  CommonDialog1.InitDir = App.path
  CommonDialog1.Filter = "Access文件(*.mdb)|*.mdb"
  CommonDialog1.ShowSave
  mfile = App.path & "\db2.mdb"           '要备份的文件为当前文件夹下的   db1.mdb
  mfile2 = CommonDialog1.FileName       '得到目标文件的路径
  If Trim(mfile2) = "" Then Exit Sub
  If Dir(mfile2) <> "" Then
  If MsgBox(Dir(mfile2) & "   文件已经存在，是否替换？", vbYesNo, "警告") = vbNo Then Exit Sub
  End If
  Dim buff()     As Byte, i       As Long
    
  i = FileLen(mfile)
  ReDim buff(i - 1)
    
  Open mfile For Binary As #1
  Get #1, , buff
  Close #1
    
  Open mfile2 For Binary As #1
  Put #1, , buff
  Close #1
    
  MsgBox "备份完毕！"
End Sub

Answer 5

在.initdir=app.path下面加一行
.filename=""

Answer 6

谢谢chuifengde
这个效果是实现了，但是我的最终目的还是没有达到！
我现在有个数据库，连接数据库采用的是相对路径，数据库和VB工程的同一目录，所以假如做一步备份数据库到别的目录，再操作与数据库有关的程序时，就会出错，提示数据库路径找不到，所以我想可不可以用chuifengde教我的方法实现来还原目录，但是还是不行，请教各位还有什么其他方法，可以把目录转换！

Answer 7

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