Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim dir As New IO.DirectoryInfo("p:\ath")
        Dim files() As IO.FileInfo = GetFiles(dir)
    End Sub
 
    Private Function GetFiles(ByVal dir As IO.DirectoryInfo) As IO.FileInfo()
        Dim lst As New List(Of IO.FileInfo)
        Try
            Dim dirs() As IO.DirectoryInfo = dir.GetDirectories("*", _
              IO.SearchOption.TopDirectoryOnly)
            For Each d As IO.DirectoryInfo In dirs
                lst.AddRange(GetFiles(d))
            Next
        Catch ex As UnauthorizedAccessException
        End Try
        lst.AddRange(dir.GetFiles("*.*", IO.SearchOption.TopDirectoryOnly))
        Return lst.ToArray
    End Function