How to filter search results

Ok so im using the following code to find subfolders in a folder:

Code:

 Private Sub DirSearch(ByVal sDir As String)
        Application.DoEvents()
        For Each d As String In Directory.GetDirectories(sDir)
            Console.WriteLine(d)
            DirSearch(d)
            ListBox1.Items.Add(d)
            Timer1.Start()
        Next
    End Sub

I was just wondering how i would filter the search results to remove all folders containing the word itunes, windows ect. this is for my file scanner which i dont want to scan in places i know recent files won't be. Also i'm dealing with literally tens of thousands of folders so filtering out windows folders would reduce a lot of unnecessary scanning.
Thanks

Originally Posted by Bombsaway707

Ok so im using the following code to find subfolders in a folder:

Code:

 Private Sub DirSearch(ByVal sDir As String)
        Application.DoEvents()
        For Each d As String In Directory.GetDirectories(sDir)
            Console.WriteLine(d)
            DirSearch(d)
            ListBox1.Items.Add(d)
            Timer1.Start()
        Next
    End Sub

Code:

 Private Sub DirSearch(ByVal sDir As String)
        Application.DoEvents()
        For Each d As String In Directory.GetDirectories(sDir)
If d.contains("iTunes") or d.Contains("Windows") Then
Continue For
End If
           Console.WriteLine(d)
            DirSearch(d)
            ListBox1.Items.Add(d)
            Timer1.Start()
        Next
End Sub

Code:

 Private Sub DirSearch(ByVal sDir As String)
        Application.DoEvents()
        For Each d As String In Directory.GetDirectories(sDir)
            If d.ToLower.Contains("itunes") Or d.ToLower.Contains("windows") Then
                        Continue For
            End If
            Console.WriteLine(d)
            DirSearch(d)
            ListBox1.Items.Add(d)
            Timer1.Start()
        Next
End Sub

By the way, why'd you leave the random Console.WriteLine in there? <.<

And I'll just point out that starting the timer every time the for loops occurs may be unnecessary (depending on what your code does).

Originally Posted by freedompeace

Code:

 Private Sub DirSearch(ByVal sDir As String)
        Application.DoEvents()
        For Each d As String In Directory.GetDirectories(sDir)
            If d.ToLower.Contains("itunes") Or d.ToLower.Contains("windows") Then
                        Continue For
            End If
            Console.WriteLine(d)
            DirSearch(d)
            ListBox1.Items.Add(d)
            Timer1.Start()
        Next
End Sub

I just C&P what u wrote in their and i didnt take anything out cuz tbh i wasn't sure what it all did as im not really familiar with folder scanning. And the timer scans the folders that are found for files

Originally Posted by Bombsaway707

Okay. So what you want to do is remove BOTH

Console.WriteLine
Timer1.Start

And then delete your timer - you wont need t altogether.

Now just call DirSearch(...) at your form's Load event or allow the user toc click a button to start it (on the click event)

So like

Private Function Form1_Load(ByVal ... ' provided already by the load function
DirSearch("C:\freedompeace")
End Function

Or something in a button.

I would show you how to multithread it, but typing on my mobile is way hard <.<

Originally Posted by freedompeace

Well see the timer contains a code which scans all the folders found using the previous code for files. Like it takes all the folders found and then proceeds to scan them for files so im pretty sure its needed

Originally Posted by Bombsaway707

Well you see, in that case, it might be better to do it in the same loop. Iterating through folders takes a mere few milliseconds. It wouldn't be too bad to search for files while you're in there as well.

How to filter search results

Post a Reply

Tags for this Thread