为什么路径不起作用呢? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么路径不起作用呢?

共有9729人关注过本帖树形打印复制链接主题：为什么路径不起作用呢?

unverse

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1089 积分：8258 威望：0 精华：4 注册：2012/3/31 18:08:00

为什么路径不起作用呢? 发帖心情

Post By：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\" 路径在执行后每次弹出的窗口里默认路径并不是这路径 ,而是上次使用过的路径 ?

请问错在哪里???

能帮解决一下吗?