请问VB里有树形目录的控件可以用吗？

[jerry_huang]

谢谢！

有没有这方面介绍？

[GLAY]

要实现目录浏览用 TreeView

我自己写的一个例子，只演示如何载入2级目录与目录下*.txt文件（例c:\下全部目录，与c:\windows\下全部目录.)
但如果你想载入更多自己改！

使用方法:
Private Sub Command1_Click()
Showdatalist "c:", TreeView1
End Sub

'==========================================================

Sub Showdatalist(DataPath As String, MyTreeView As TreeView)


On Error Resume Next
Dim RootNo As Integer
Dim Root As Node
Dim i, DataListNo As Integer
Dim LastName, MyPath, MyName As String

MyTreeView.Nodes.Clear

ListNo = 1

MyPath = DataPath & "\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。

Do While MyName <> "" ' 开始循环。

If MyName <> "." And MyName <> ".." Then ' 跳过当前的目录及上层目录。

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then ' 使用位比较来确定 MyName 代表一目录。
RootNo = RootNo + 1
Set Root = MyTreeView.Nodes.Add(, , , MyName) ' 如果它是一个目录，将其名称显示出来。
Root.Sorted = True
End If

End If

MyName = Dir ' 查找下一个目录。

Loop

'-------------------------------------------------------------------------------------------
ListNo = RootNo

For i = 1 To RootNo

MyPath = DataPath & "\" & MyTreeView.Nodes(i).Text & "\"
MyName = Dir(MyPath, vbDirectory)

Do While MyName <> "" ' 开始循环。

If MyName <> "." And MyName <> ".." Then ' 跳过当前的目录及上层目录。

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then ' 使用位比较来确定 MyName 代表一目录
ListNo = ListNo + 1

Set Root = MyTreeView.Nodes.Add(i, tvwChild, , MyName) ' 如果它是一个目录，将其名称显示出来。
Root.Sorted = True
End If
End If
MyName = Dir ' 查找下一个目录。

Loop

Next i


'-------------------------------------------------------------------------------------------

For i = RootNo To ListNo + 1

MyPath = DataPath & "\" & MyTreeView.Nodes(i).FullPath & "\*.txt"
MyName = Dir(MyPath)

Do While MyName <> "" ' 开始循环。

LastName = Left(MyName, Len(MyName) - 4)
Set Root = MyTreeView.Nodes.Add(i, tvwChild, , LastName) ' 如果它是一个目录，将其名称显示出来。

MyName = Dir ' 查找下一个目录。
Loop
Root.Sorted = True
Next i



End Sub

[qiqif]

当然有就是treeview

[Seva]

microsoft windows common controls 5.0 中的 TreeView
msdn中有介绍

[Wang_xiaoni]

要实现目录浏览用treeview+drivelistbox+dirlistbox+filelistbox
一般用TREEVIEW即可

[gang75]

gz