Code:
        Dim di As New System.IO.DirectoryInfo("C:\")
        Dim fi() As System.IO.FileInfo
        fi = di.GetFiles("*.txt")
        For ct As Integer = 0 To fi.Length - 1
            Debug.WriteLine(fi(ct).FullName)
        Next