如何设置保存对话框打开时的默认路径

问题有两个：
（1）如何设置保存对话框打开时的默认路径，如每次打开时，显示的是一个具体指定的目录，比如 f:\文件备份目录（2）为什么我设置了这个保存对话框的 initdir="f:\文件备份目录"时，我的程序退出时会出现 “ ADODC1 找不到  f:\文件备份目录\数据库.mdb ” 的错误提示，数据库.mdb是我的程序数据库文件，是放在D盘的程序目录中的， 为什么会出现这个错误提示   ADODC1 的属性设置中connectionstring的设置为：
Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=数据库.mdb;（3）为什么设置了initdir="f:\文件备份目录" 打开保存对话框时，显示的路径也不是 f:\文件备份目录？

解决方案 »

  1.   

    使用 CommonDialog 控件选择文件后，当前路径会变为最后选择的路径。如果后续要使用应用程序相对路径，必须用 ChDir 语句返回应用程序路径。InitDir 属性的设置是立即生效的。你是否丢掉了前面的圆点？With CommonDialog1
        If Dir("F:\backup", vbDirectory) = "" Then MkDir "F:\backup"
        .InitDir = "F:\backup"
        .ShowOpen
    End WithChDir App.Path
      

  2.   

    你可以在赋值是使用Dir检查一下数据库文件是否存在，若不存在，那么就不赋值，这样就能避免错误发生。
      

  3.   


    那请问这个问题：（3）为什么设置了initdir="f:\文件备份目录" 打开保存对话框时，显示的路径也不是 f:\文件备份目录？ 
     
     
      

  4.   

    嗨，直说吧：把你的 initdir="f:\文件备份目录" 改为 CommonDialog1.InitDir = "f:\文件备份目录"。另外，在你的程序中，文件路径最好不使用相对路径。你可以：ADODC1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;"