请教做一个我的电脑的目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教做一个我的电脑的目录树

共有3341人关注过本帖树形打印复制链接主题：请教做一个我的电脑的目录树

ljh29206

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

加好友

发短信

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

请教做一个我的电脑的目录树 发帖心情

Post By：2017/4/5 15:17:00 [只看该作者]

内部函数

Dim tr As WinForm.TreeNode = args(0)

If FileSys.DirectoryExists(tr.name) Then

For Each dir As String In FileSys.GetDirectories(tr.name)

Dim cd As WinForm.TreeNode = tr.Nodes.Add(dir)

Functions.Execute("AddChildren",cd)

ElseIf FileSys.FileExists(tr.name) Then

Dim cd As WinForm.TreeNode = tr.Nodes.Add(tr.name)

End If

目录树生成代码

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

For Each DInfo As IO.DriveInfo In IO.DriveInfo.GetDrives

If dinfo.Isready Then

nd = tv.Nodes.Add(dinfo.name)

For Each dir As String In FileSys.GetDirectories(dinfo.name)

Dim cd As WinForm.TreeNode = nd.Nodes.Add(dir,dir.Replace(dinfo.name,""))

Functions.Execute("AddChildren",nd)

For Each dir As String In FileSys.GetFiles(dinfo.name)

Dim cd As WinForm.TreeNode = nd.Nodes.Add(dir,dir.Replace(dinfo.name,""))

End If

求指导哪里错了

[此贴子已经被作者于2017/4/5 15:27:33编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/4/5 16:18:00 [只看该作者]

代码没有问题，只是没有权限读取一些系统的关键目录。

Dim tr As WinForm.TreeNode = args(0)

If FileSys.DirectoryExists(tr.name) Then

try

For Each dir As String In FileSys.GetDirectories(tr.name)

Dim cd As WinForm.TreeNode = tr.Nodes.Add(dir)

Functions.Execute("AddChildren",cd)

catch

End try

ElseIf FileSys.FileExists(tr.name) Then

Dim cd As WinForm.TreeNode = tr.Nodes.Add(tr.name)

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/5 16:18:00 [只看该作者]

Dim tr As WinForm.TreeNode = args(0)

If FileSys.DirectoryExists(tr.name) Then
    For Each dir As String In FileSys.GetDirectories(tr.name)
        Dim info As new fileinfo(dir)
        If info.Hidden = False Then
            Dim cd As WinForm.TreeNode = tr.Nodes.Add(dir, filesys.GetName(dir))
            Functions.Execute("test",cd)
        End If
    Next
End If

For Each dir As String In FileSys.GetFiles(tr.name)
Dim cd As WinForm.TreeNode = tr.Nodes.Add(dir, FileSys.GetName(dir))
Next

----------------

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
For Each DInfo As IO.DriveInfo In IO.DriveInfo.GetDrives
    If dinfo.Isready AndAlso dinfo.name = "d:\" Then
        nd = tv.Nodes.Add(dinfo.name)
        Functions.Execute("test",nd)
    End If
Next

ljh29206

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

加好友

发短信

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

Post By：2017/4/5 16:43:00 [只看该作者]

谢谢2位,再试下

jyh7081

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

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2017/5/12 11:07:00 [只看该作者]

有点色老师，我把路径改成子目录，就没反应了，只能针对根目录吗？（函数已添加）

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
For Each DInfo As IO.DriveInfo In IO.DriveInfo.GetDrives
    If dinfo.Isready AndAlso dinfo.name = "d:\aa\" Then
        nd = tv.Nodes.Add(dinfo.name)
        Functions.Execute("test",nd)
    End If
Next

附件：