Get all files in a Directory including subfolders is to slow.

Hey everyone ~

      I have an issue that is just a driving me nuts.  I know how to get all files in a folder including everything in all subfolders, but after it gets to about 5000 files or so it begins to slow down.  Which is a problem when you are trying to get everything in "Program Files" or "Windows."  Below is the code i use to get all the files.

Public Function FindFilePaths(ByVal strpath As String)

            Dim strDir() As String
            Dim filesize As String
            Dim lngBytes As Long

            strDir = System.IO.Directory.GetDirectories(strpath)

            Dim enDir As System.Collections.IEnumerator

            enDir = strDir.GetEnumerator

            While enDir.MoveNext

                Try
                    Dim strFiles() As String

                    strFiles = System.IO.Directory.GetFiles(CStr(enDir.Current))

                    Dim enFiles As System.Collections.IEnumerator

                    enFiles = strFiles.GetEnumerator

                    While enFiles.MoveNext

                        System.Windows.Forms.Application.DoEvents()
                        'Console.WriteLine(CStr(enFiles.Current))
                        intFileCount += 1

                        lngBytes = FileLen(CStr(enFiles.Current))
                        ArrLstCopyQBytes.Add(lngBytes)
                        filesize = convertSize(lngBytes)

                        lngTOTBytes += lngBytes

                        'CONVERTSIZE turns the number of bytes into the appropriate converstion (KB,MB,GB)
                        lblTotSIZE.Text = convertSize(lngTOTBytes).ToString

                        'FILLQUEUE FILLS AN ARRAYLIST OR A LISTVIEW CONTROL WITH THE SOURCE, DESTINATION, AND FILESIZE.
                        fillQueue(CStr(enFiles.Current), strDESTINATION, filesize)

                        filesize = ""

                        GC.Collect()

                    End While

                Catch ex As Exception
                    lstStatus.Items.Add("Could not read files in " & strpath)
                Finally
                    GC.Collect()
                End Try

                Me.Update()
                Call FindFilePaths(CStr(enDir.Current))

            End While

            GC.Collect()

        End Function

   This works extremely well when there is a small list of files (fewer than 5000).  But once it starts getting about 10000 or even 40000 (Which "Program Files" easily gets that high) it becomes way to slow.  This is VB.NET 2003.  Anyone have any ideas on how to speed this up, its really nerve racking how slow it becomes?

Fuzzy024~Start Free Trial