FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？

共有19237人关注过本帖树形打印复制链接主题：FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？

xghua

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

加好友

发短信

等级：婴狐帖子：7 积分：100 威望：0 精华：0 注册：2012/8/14 10:32:00

FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？ 发帖心情

Post By：2012/8/14 10:38:00 [只看该作者]

FolderBrowserDialog

RootFolder

开始浏览的根目录。
SelectedPath

用户选定的目录。

Dim dlg As New FolderBrowserDialog

dlg.RootFolder="c:\"---------------------这个属性为甚麽不能用呢？请问专家如何实现打开时直接打开它上次打开的目录呢？

If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的目录是：" & dlg.SelectedPath,"提示")
End If

xghua

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

加好友

发短信

等级：婴狐帖子：7 积分：100 威望：0 精华：0 注册：2012/8/14 10:32:00

Post By：2012/8/14 10:43:00 [只看该作者]

请问专家如何实现打开时直接打开它上次打开的目录呢？ 我是这样写的，但是好像 RootFolder属性说
类型不对

Dim dlg As New FolderBrowserDialog

                    If dlg.ShowDialog = DialogResult.Ok Then
                            SourcePath=dlg.SelectedPath+"\丰润区"+ danwei+"幼儿园规划谱表.mdb"
                            CompactToAccess( SourcePath , "") '导出数据,密码为空

                            dlg.RootFolder=dlg.SelectedPath '将选定的目录设为默认,便于下次使用

End If
MessageBox.Show("数据导出路径如下:"+SourcePath,"全部数据导出成功!!")

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/14 10:47:00 [只看该作者]

用全局代码定义。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目32.table

xghua

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

加好友

发短信

等级：婴狐帖子：7 积分：100 威望：0 精华：0 注册：2012/8/14 10:32:00

Post By：2012/8/14 14:27:00 [只看该作者]

谢谢，看明白了。就是在全局代码或全局变量中加入这一句 Public dlg As new FolderBrowserDialog

然后再按钮单击事件中再执行代码

                              'Dim dlg As New FolderBrowserDialog 这个声明就不能用了

                    If dlg.ShowDialog = DialogResult.Ok Then
                            SourcePath=dlg.SelectedPath+"\丰润区"+ danwei+"幼儿园规划谱表.mdb"
                            CompactToAccess( SourcePath , "") '导出数据,密码为空

                            dlg.RootFolder=dlg.SelectedPath '将选定的目录设为默认,便于下次使用

End If
MessageBox.Show("数据导出路径如下:"+SourcePath,"全部数据导出成功!!")