VB.NET用列表框列举目录下的文件及子目录

    Sub 查询_用列表框列举目录下的文件及子目录()
        Dim path As String = Form账务统计_对公采购存档_编辑.LinkLabel1.Text
        If Directory.Exists(path) Then
            Dim Files() As String = Directory.GetFiles(path)
            Dim Folders() As String = Directory.GetDirectories(path)
            '获取path下文件数量
            Dim FilesList() As String = System.IO.Directory.GetFiles(path, "*.*")
            Dim iFiles As Integer = FilesList.Length
            '获取path下目录数量
            Dim FoldersList() As String = System.IO.Directory.GetDirectories(path)
            Dim iFolders As Integer = FoldersList.Length

            '列举path下的文件名
            If iFiles > 0 Then
                For i As Integer = 0 To Files.Length - 1
                    Form账务统计_对公采购存档_编辑.ListBox1.Items.Add((Files(i)))
                Next
            Else
                Exit Sub
            End If
            '列举path下的目录名
            If iFolders > 0 Then
                For i As Integer = 0 To Files.Length - 1
                    Form账务统计_对公采购存档_编辑.ListBox1.Items.Add(Folders(i))
                Next
            Else
                Exit Sub
            End If
        End If
    End Sub