- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22470)
-- 发布时间：2012/8/14 10:38:00
-- FolderBrowserDialog 如何实现打开时直接打开它上次打开的目录呢？
FolderBrowserDialog
开始浏览的根目录。
用户选定的目录。
Dim
dlg As New FolderBrowserDialog
dlg.RootFolder="c:\\"---------------------这个属性为甚麽不能用呢？请问专家如何实现打开时直接打开它上次打开的目录呢？
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的目录是：" & dlg.SelectedPath,"提示")
End If
<!--StartFragment -->
)9RQ]HZ@(C.jpg)
-- 发布时间：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,"全部数据导出成功!!")
-- 发布时间：2012/8/14 10:47:00
--
用全局代码定义。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目32.table |
-- 发布时间：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,"全部数据导出成功!!")
-- 发布时间：2012/8/14 14:27:00
--
我测试后发现如果关闭以后下次还是要重新选路径，如何保证关闭以后这个记录的目录不丢呢？
-- 发布时间：2012/8/14 14:28:00
--
对了 ，‘ dlg.RootFolder=dlg.SelectedPath 这行也要注视掉
-- 发布时间：2012/8/14 14:32:00
--
我测试后发现如果关闭以后下次还是要重新选路径，如何保证关闭以后这个记录的目录不丢呢？
这个没有办法。
-- 发布时间：2012/8/14 14:34:00
--
问题是关闭程序冲新打开后，原来选定的目录还是没能保存住，如何解决呢？
-- 发布时间：2012/8/14 14:35:00
--
我测试后发现如果关闭以后下次还是要重新选路径，如何保证关闭以后这个记录的目录不丢呢？
把这个目录保存在表内，下次打开时调用就行了。
-- 发布时间：2012/8/14 15:05:00
--
关闭仍有效的方法。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |