List all Files in C drive? (including Files in subfolders?

[reconrey]

i have this right now:

 ListBox1.Items.Clear()
        Dim di As New IO.DirectoryInfo(TextBox1.Text)
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
        Dim fi As IO.FileInfo
        For Each fi In aryFi
            ListBox1.Items.Add(fi)
        Next

and that displays only the file name, like text.txt but i want it to display C:/Text.txt and all the files in the subfolders too, like C:/Program Files/Test2.txt but i just get test.txt from only the c:/ drive. Help.

[Firestarter_75]

reconrey,

You can try one of the following:

        ListBox1.Items.Clear()
        Dim aryFi() As String = IO.Directory.GetFiles(TextBox1.Text, "*", IO.SearchOption.AllDirectories)
        ListBox1.Items.AddRange(aryFi)

or

        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(IO.Directory.GetFiles(TextBox1.Text, "*", IO.SearchOption.AllDirectories))

Hope this helps.

[dbasnett]

    'this could run for a while depending on start folder i.e. C:\
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        rslts = New List(Of String)
        foo(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(rslts.ToArray)
    End Sub

    Dim rslts As List(Of String)

    Private Sub foo(ByVal aDir As String)
        Try

            Dim di As New IO.DirectoryInfo(aDir)
            Dim aryFiles() As IO.FileInfo = di.GetFiles("*.*")
            Dim aryDirs() As IO.DirectoryInfo = di.GetDirectories()

            For Each fi As IO.FileInfo In aryFiles
                rslts.Add(fi.FullName)
            Next

            For Each d As IO.DirectoryInfo In aryDirs
                foo(d.FullName)
            Next

        Catch ex As Exception
            'Stop 'the catch should be more specific
        End Try

    End Sub