另外,您说的vs.net是指的visul studio .net 吗?我是用vb.net 中asp web 应用中的web form 做的。
----------------------------------------------------------------------
(1)首先正确的下载和安装ieWebcontrols
(2)在vs.net中用
CSDN里的Treeview是在节点被选中的时候才开始生成的.
Private Sub frmOnlyDirec_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FillTreeView()
End Sub
Sub FillTreeView()
Dim arrDrives() As String
arrDrives = Directory.GetLogicalDrives
Dim sDrive As String
Dim node As TreeNode
TreeView1.Nodes.Clear()
For Each sDrive In arrDrives
node = TreeView1.Nodes.Add(sDrive.Substring(0, 2))
node.Nodes.Add("")
Next
TreeView1.SelectedNode = TreeView1.Nodes(1)
End Sub
Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand
If e.Node.Nodes(0).Text = "" Then
AddFolder(e.Node.FullPath, e.Node)
End If
End Sub
Sub AddFolder(ByVal sPath As String, ByVal nodeselected As TreeNode)
nodeselected.Nodes.Clear()
Try
Dim sDir() As String
sDir = Directory.GetDirectories(sPath)
Dim i As Integer
Dim sSub() As String
Dim node As TreeNode
For i = 0 To sDir.GetUpperBound(0)
node = nodeselected.Nodes.Add(Path.GetFileName(sDir(i)))
sSub = Directory.GetDirectories(sDir(i))
If sSub.GetUpperBound(0) > 0 Then
node.Nodes.Add("")