[求助] FolderBrowserDialog 植入目录树里面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] FolderBrowserDialog 植入目录树里面

共有8759人关注过本帖树形打印复制链接主题：[求助] FolderBrowserDialog 植入目录树里面

ljh29206

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

加好友

发短信

等级：六尾狐帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00

[求助] FolderBrowserDialog 植入目录树里面 发帖心情

Post By：2013/2/6 10:50:00 [显示全部帖子]

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

老师们,请问现在有没例子

把 FolderBrowserDialog 生成目录树的形式显示在目录树里面我想达到下边的效果.

就是不用进入我的电脑能够在 foxtable 里面显示全部文件内容.

此主题相关图片如下：未命名.jpg

ljh29206

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

加好友

发短信

等级：六尾狐帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2013/2/6 13:21:00 [显示全部帖子]

老师我的想法是探测下级子目录的文件名然后填入一个临时表,在用临时表生成目录树.

但不知道每个子目录里面又是否还包含子目录!

该循环多少次才能探到底部的最后一个文件夹!

For Each dir As String In FileSys.GetDirectories("f:\")
    For Each dir1 As String In FileSys.GetDirectories(dir)
       Dim dr As Row = Tables("路径表").AddNew()
       dr("第一列") = dir1
Next
Next

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("路径表","第一列")

请指教一下!

ljh29206

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

加好友

发短信

等级：六尾狐帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2013/2/6 13:33:00 [显示全部帖子]

是哦我只是操作单文件夹的内容,

文件名可以自定.

但看不懂递归如何递!

能帮忙写下代码么老师

例如我要找生成 F:\ 盘的目录树

下一主题 >> << 上一主题

主题：[求助] FolderBrowserDialog 植入目录树里面