您可以使用以下代码来实现通过TreeView控件显示文件夹下所有文件列表的功能:
Private Sub PopulateTreeView(ByVal path As String, ByVal parentNode As TreeNode) Dim folder As String = String.Empty Try Dim folders() As String = IO.Directory.GetDirectories(path) If folders.Length <> 0 Then Dim childNode As TreeNode = Nothing For Each folder In folders childNode = New TreeNode(folder) parentNode.Nodes.Add(childNode) PopulateTreeView(folder, childNode) Next End If Dim files() As String = IO.Directory.GetFiles(path) If files.Length <> 0 Then Dim childNode As TreeNode = Nothing For Each file In files childNode = New TreeNode(IO.Path.GetFileName(file)) parentNode.Nodes.Add(childNode) Next End If Catch ex As UnauthorizedAccessException parentNode.Nodes.Add("Access Denied") End Try End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim rootPath As String = "C:\YourFolderPath" '指定文件夹路径 Dim rootNode As New TreeNode(rootPath) TreeView1.Nodes.Add(rootNode) PopulateTreeView(rootPath, rootNode) End Sub
这段代码通过递归遍历文件夹,将每个文件夹和文件都添加到TreeView控件中的对应节点。您只需要将rootPath
变量替换为您想显示文件列表的文件夹路径即可。