Get File Method Still does not search subfolders PLEASE HELP!!

Question

3.00/5 (2 votes)

See more:

Ok I have made the change in my program but the code still does not allow or go into the subfolders in the root directory. If I select C:\ in the combobox it still only goes one level and no deeper.
Any ideas?

Start button get file method.....

VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim searchForTheseFiles() As String = TextBox1.Text.ToUpper.Split(Environment.NewLine)
        Dim fileList As New List(Of String)(searchForTheseFiles)
        Dim myDir As New DirectoryInfo(CheckedComboBoxEdit1.Text)
        Try
            Dim files() As FileInfo = myDir.GetFiles("*.*", SearchOption.AllDirectories)
            For Each foundFile As FileInfo In files
                If fileList.Contains(foundFile.Name.ToUpper) Then
                    ListBox3.Text &= Environment.NewLine & foundFile.FullName
                    My.Computer.Audio.Play(My.Resources.fat_n_soft_button_4, AudioPlayMode.Background)
                End If
            Next
        Catch ex As UnauthorizedAccessException
            Debug.WriteLine(String.Format("Could not access directory '{0}'.", myDir.FullName))
        End Try

:( fix me please!!

I have had responces that tell me to set or elevate program access to the file system on my computer but how is done fully?

Posted 18-Oct-10 19:21pm

Dale 2012

Updated 18-Oct-10 21:22pm

v4

Add a Solution

Comments

Dalek Dave 19-Oct-10 3:18am

Minor Edit for Grammar.

Tarun.K.S 19-Oct-10 10:47am

setting or elevating program access wont be of any help except if you go deep into some Windows System folders!

2 solutions

Solution 2

now this is your button event which searches files etc.

<pre>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim searchForTheseFiles() As String = TextBox1.Text.ToUpper.Split(Environment.NewLine)
Dim fileList As New List(Of String)(searchForTheseFiles)
Dim myDir As New DirectoryInfo(CheckedComboBoxEdit1.Text)
Try
Dim files() As FileInfo = myDir.GetFiles("*.*", SearchOption.AllDirectories)
For Each foundFile As FileInfo In files
If fileList.Contains(foundFile.Name.ToUpper) Then
ListBox3.Text &= Environment.NewLine & foundFile.FullName
My.Computer.Audio.Play(My.Resources.fat_n_soft_button_4, AudioPlayMode.Background)
End If
Next
Catch ex As UnauthorizedAccessException
Debug.WriteLine(String.Format("Could not access directory '{0}'.", myDir.FullName))
End Try
End Sub</pre>

So now to recursively search through sub directories and files..i will be using two functions.

<pre lang="vb">
'declare this list
Dim aList As New List(Of String)

This function will recursively search through the directories

Public Function Recurse(ByVal _direc As DirectoryInfo) As List(Of String)
Dim dr As DirectoryInfo
For Each dr In _direc.GetDirectories()
totalFolders = totalFolders + 1
Recurse(dr)
RecurFile(dr)
Next
Return aList
End Function

Here i will implement your function :

Public Function RecurFile(ByVal adir As DirectoryInfo)

For Each foundFile As FileInfo In adir.GetFiles()
If fileList.Contains(foundFile.Name.ToUpper) Then
ListBox3.Text &= Environment.NewLine & foundFile.FullName
' here the list will be populated
' alist.add(foundFile.FullName) My.Computer.Audio.Play(My.Resources.fat_n_soft_button_4, AudioPlayMode.Background)
End If
Next

End Function

So your new button_click should be :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim searchForTheseFiles() As String = TextBox1.Text.ToUpper.Split(Environment.NewLine)
Dim fileList As New List(Of String)(searchForTheseFiles)
Dim myDir As New DirectoryInfo(CheckedComboBoxEdit1.Text)

'This List will contain the file names
'Display the files from this list!
dim myList as List(of String)= Recurse(myDir)

End Sub

</pre>

This should work Dale! if it doesn't then try to show the whole project to me together with the code for a deeper understanding of what you want to do! Good Luck!! :)

Posted 22-Oct-10 2:45am

Tarun.K.S

Updated 22-Oct-10 23:54pm

v2

Comments

Dale 2012 26-Oct-10 22:45pm

I will be very well willing to show my entire source code if you are able to help with a few questions.. please let me know as soon as you can

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Tarun.K.S · Accepted Answer · 2010-10-19T03:37:00

Solution 1

Actually you have to recursively call your function..

Here is my code :

Module BrowseFoldersEx
    Sub main()
        Dim direc As New DirectoryInfo("C:\abhishek")
        If direc.Exists = False Then
            MsgBox("The path does not exist. Please specify a correct path")
            Exit Sub
        End If
        Console.WriteLine("Folders are : ")
        RepeatDir(direc)
        Console.ReadLine()
    End Sub
    Function RepeatDir(ByVal drr As DirectoryInfo)
        Dim fls As DirectoryInfo
        For Each fls In drr.GetDirectories()
            Console.WriteLine(fls.Name)
            RepeatDir(fls)
            Console.WriteLine("Checking for Files:")
            RepeatFiles(fls)
        Next
        
    End Function
    Function RepeatFiles(ByVal dirs As DirectoryInfo)
        Dim fl As FileInfo
        For Each fl In dirs.GetFiles()
            Console.WriteLine(fl.Name)
        Next
        If fl Is Nothing Then
            Console.WriteLine("No files are present in this folder " & dirs.Name)
        End If
    End Function
End Module

Hope this helps! :)

Posted 19-Oct-10 3:37am

Tarun.K.S

Updated 19-Oct-10 3:46am

v2

Comments

Marc A. Brown 19-Oct-10 9:46am

EDIT: Fixed code block.

Tarun.K.S 19-Oct-10 9:48am

Thanx Marc!

Dale 2012 19-Oct-10 16:32pm

Just because you have been the only one to provide an actual code I will give you 5 out of 5 but will you also be able to help me with the FileIOPermission Class. I need to be able to give permission to the restricted files I am trying to search through and seeing as you have already looked at the code will you be still willing to help me out?

Dale 2012 19-Oct-10 16:42pm

I know your code is probably self explanatory but just so that I dont confuse anything will you please tell me how to call this module into the scan or does it work automaticly? I have not much expierence with modules...... I thank you so much thoe for providing this :) :)

Tarun.K.S 20-Oct-10 4:50am

Thanx Dale! well to see how it works, just create a new module in your project.Copy the code above into it, and run it! the result will be shown in a command prompt window coz i am displaying it using console.writeline().

Dale 2012 20-Oct-10 22:34pm

At this point I think you may be the only person that can help me with my full problem. It is a bit complex but I will try to describe it the best I can.

here goes

In my application I have a combobox set to getlogicaldrives. The user selects the logical drive and button1 goes from disabled to enabled. When the user clicks button1 the label under the progress bar reads the current directory and the file name from my.resources.viruslist. With that being said how can I use the listbox or textbox to show the results of your recrusion scan?

Tarun.K.S 22-Oct-10 8:11am

ohkay lemme try this for you!