Dim node As TreeNode
Dim strtop As Integer = rootnode.Text.Trim().Length + 1
Dim currpath = node.FullPath.Substring(strtop)
Dim curnode As TreeNode = e.Node
Dim i As Integer
If curnode.Nodes.Count() > 0 Then
Try
For i = 0 To curnode.Nodes.Count() - 1
addsubdir(curnode.Nodes(i))
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "添加节点")
End Try
End If
VB.NET浏览文件夹与文件
5星 · 超过95%的资源 需积分: 44 83 浏览量
2008-12-04
11:07:22
上传
评论
收藏 96KB RAR 举报 
VB.NET第7章.rar （37个子文件） 
7.3.2 
AssemblyInfo.vb 809B bin WindowsApplication2.pdb 26KB
WindowsApplication2.exe 40KB Form1.vb 13KB WindowsApplication2.vbproj.user 2KB obj Debug WindowsApplication2.Form1.resources 11KB WindowsApplication2.pdb 26KB WindowsApplication2.exe 40KB temp TempPE WindowsApplication2.vbproj 4KB Form1.resx 14KB WindowsApplication2.sln 923B WindowsApplication2.suo 8KB 7.3.1 AssemblyInfo.vb 809B bin WindowsApplication2.pdb 20KB WindowsApplication2.exe 19KB Form1.vb 8KB WindowsApplication2.vbproj.user 2KB obj Debug WindowsApplication2.Form1.resources 5KB WindowsApplication2.pdb 20KB WindowsApplication2.exe 19KB temp TempPE WindowsApplication2.vbproj 4KB Form1.resx 12KB WindowsApplication2.sln 923B WindowsApplication2.suo 8KB 7.4 WindowsApplication1 
不需要代码.txt 533B WindowsApplication1.vbproj.user 2KB AssemblyInfo.vb 809B bin WindowsApplication1.exe 36KB WindowsApplication1.pdb 22KB Form1.vb 8KB obj Debug WindowsApplication1.Form1.resources 11KB temp WindowsApplication1.exe 36KB TempPE WindowsApplication1.pdb 22KB Form1.resx 15KB WindowsApplication1.vbproj 4KB WindowsApplication1.suo 8KB WindowsApplication1.sln 923B资源评论
yyx26842642014-07-03有点参考作用!!- Ludeching2018-08-10东西还不错，可以，好评
- Darkli2013-08-16还行，有点参考作用
chenchenbbk2014-10-30挺好的，可以参考
