如何在treeview中添加局域网文件夹

'****************************************************

'*组名称：SearchFiles

'*组说明：遍历某目录指定文件

'*语说明：SearchFiles(Path , FileType, ListObj, ImageIndex)

'*语说明：[Path]：要遍历路径；[FileType]：文件类型；[ListObj]：指定树形列表控件

'*语说明：[ImageIndex]：指定树形列表控件图像Index

'*返值：

'*注意事项：使用树形控件前必须其初始化

'*组作者：gaochongjun1

'****************************************************

Function SearchFiles(Path As String, FileType As String, ListObj, ImageIndex As Integer)

Dim Files() As String '文件路径

Dim Folder() As String '文件夹路径

Dim AB, BA, c As Long

Dim sPath As String

sPath = Dir(Path &FileType) '查找第文件

Do While Len(sPath) '循环没文件止

AB = AB + 1

ReDim Preserve Files(1 To AB)

Files(AB) = sPath '文件目录文件名组合,并存放数组

'加入树形列表

With ListObj

With .Nodes

.Add "a0", 4, Files(AB), Files(AB), "Menu"

End With

End With

sPath = Dir '查找文件

DoEvents '让控制权

Loop

sPath = Dir(Path &"\", vbDirectory) '查找第文件夹

Do While Len(sPath) '循环没文件夹止

If Left(sPath, 1) >"." Then '防止重复查找

If GetAttr(Path &"\" &sPath) And vbDirectory Then '文件夹则

BA = BA + 1

ReDim Preserve Folder(1 To BA)

Folder(BA) = Path &sPath &"\" '目录文件夹名称组合形新目录,并存放数组

End If

End If

sPath = Dir '查找文件夹

DoEvents '让控制权

Loop

For c = 1 To BA '使用递归遍历所目录

SearchFiles Folder(c), FileType, ListObj, ImageIndex

Next

End Function

直接把treeview的每个枝的节点拼接起来用/隔开直到最深的节点，然后用io里的目录对象创建就行了，不用每个都去创建一下的，只要把每个枝从最外层节点到最内层的节点拼接起来中间用/分开一次创建就行了

vb.net。

通过指定文件夹的路径，获取子文件夹My.Computer.FileSystem.GetDirectories

通过指定文件夹的路径，获取文件名My.Computer.FileSystem.GetFiles。

将不包括路径的文件名和文件夹名增加到treeview中。

TreeView1.Nodes.Add增加一级节点

TreeView1.Nodes(0).Nodes.Add增加第一个一级节点的子节点

TreeView1.SelectedNode.Nodes.Add（“”）增加当前选定节点的子节点

TreeView1.SelectedNode.FullPath返回当前选定节点的路径。

要代码可追问，问题再详细具体些吧。你是要做资源管理器类型的？文件夹和文件都显示在treeview中？

---