有人有一个在 VB .NET 的 TreeView 中显示目录树结构的工作示例吗？

Question

我到处都找过了，但找不到有效的版本。我发现的那些要么已经过时，要么有错误。

我有一些大部分工作正常的东西，但我在限制访问文件夹方面遇到了一些问题。

我正在使用的代码如下：

Imports System.IO

Public Class frmMain
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each drive In DriveInfo.GetDrives
            Dim i As Integer = TreeView1.Nodes.Count

            TreeView1.Nodes.Add(drive.ToString)

            If drive.IsReady Then
                PopulateTree(drive.ToString, TreeView1.Nodes(i))
            End If
        Next
    End Sub

    Private Sub PopulateTree(ByVal sDir As String, ByVal node As TreeNode)
        Dim directory As New DirectoryInfo(sDir)

        Try
            For Each d As DirectoryInfo In directory.GetDirectories
                Dim t As New TreeNode(d.Name)

                PopulateTree(d.FullName, t)
                node.Nodes.Add(t)
            Next
        Catch excpt As UnauthorizedAccessException
            Debug.WriteLine(excpt.Message)
        End Try
    End Sub
End Class

替换了此部分...

If drive.IsReady Then
    PopulateTree(drive.ToString, TreeView1.Nodes(i))
End If

出于测试目的，我用此

If drive.toString = "L:\"
    PopulateTree(drive.ToString, TreeView1.Nodes(i))
End If

...并且它对于该驱动器工作得很好。顺便说一下，L:\ 是一个可移动 USB 驱动器。

但是，使用原始代码时，我在某些文件夹上遇到了调试错误，因为它们是访问限制的。有什么方法可以忽略这些特定文件夹并显示其余文件夹吗？

Answer 1

是的，您需要收紧 try catch 块的范围。您发现的错误距错误发生的地方太远。试试这个：

Private Sub PopulateTree(ByVal sDir As String, ByVal node As TreeNode)
    Dim directory As New DirectoryInfo(sDir)


        For Each d As DirectoryInfo In directory.GetDirectories
            Dim t As New TreeNode(d.Name)

            Try
               PopulateTree(d.FullName, t)
               node.Nodes.Add(t)
            Catch excpt As UnauthorizedAccessException
               Debug.WriteLine(excpt.Message)
            EndTry
        Next

End Sub