主题：FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？

FolderBrowserDialog

• RootFolder
  
  开始浏览的根目录。
     
• SelectedPath
  
  用户选定的目录。
     

Dim dlg As New FolderBrowserDialog

 

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

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

 

<!--StartFragment -->

请问专家如何实现打开时直接打开它上次打开的目录呢？ 我是这样写的，但是好像 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,"全部数据导出成功!!")

谢谢，看明白了。就是在全局代码或全局变量中加入这一句 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,"全部数据导出成功!!")

看明白了，就是将第一次获取的路径保存在配置信息里

SaveConfigValue("File", dlg.SelectedPath)

下次再用

dlg.SelectedPath = GetConfigValue("File","")调用

,这样的话，全局代码里面的 

public dlg As New FolderBrowserDialog

就没有用了吧？

Dim dlg As New FolderBrowserDialog
dlg.SelectedPath = GetConfigValue("File","")
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    SaveConfigValue("File", dlg.SelectedPath)
End If