List all Files in C drive? (including Files in subfolders?
i have this right now:
Code:
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.
Re: List all Files in C drive? (including Files in subfolders?
reconrey,
You can try one of the following:
Code:
ListBox1.Items.Clear()
Dim aryFi() As String = IO.Directory.GetFiles(TextBox1.Text, "*", IO.SearchOption.AllDirectories)
ListBox1.Items.AddRange(aryFi)
or
Code:
ListBox1.Items.Clear()
ListBox1.Items.AddRange(IO.Directory.GetFiles(TextBox1.Text, "*", IO.SearchOption.AllDirectories))
Hope this helps.
Re: List all Files in C drive? (including Files in subfolders?
Code:
'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