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


  共有3380人关注过本帖树形打印复制链接

主题:请教 做一个我的电脑的目录树

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:963 积分:8510 威望: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

 

附件:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:资源管理.table


 回到顶部