以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么路径 不起作用呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23148)
--  作者：unverse
--  发布时间：2012/9/3 17:44:00
--  为什么路径 不起作用呢?

Dim dlg As New SaveFileDialog \'定一个新的SaveFileDialog
dlg.Filter= "备份文件|*.dat" \'设置筛选器
dlg.Title="请选择保存路径及保存文件名!"
dlg.InitialDirectory = ProjectPath & "databak\\"

dlg.FileName = Format(Date.Today,"yyyy-MM-dd")
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    FileSys.CopyFile(ProjectPath & "data\\data.mdb",dlg.FileName, True)
    MessageBox.Show("数据备份成功!","恭喜",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

如题我在上面定义了:dlg.InitialDirectory = ProjectPath & "databak\\" 路径 在执行后每次弹出的窗口里默认路径 并不是这路径 ,而是上次使用过的路径 ?

请问错在哪里???

能帮解决一下吗?
--  作者：狐狸爸爸
--  发布时间：2012/9/3 17:57:00
--  
说明这个目录不存在。
--  作者：unverse
--  发布时间：2012/9/3 18:06:00
--  
您说的真对...少了一个下划.....线.....汗.......我真是.......佩服你.. ... 狐爹
--  作者：unverse
--  发布时间：2012/9/3 18:06:00
--  
 是不是你也犯过这错误 ..