问文件搜索花费的时间太长

EN

'find all instances of the file
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'first clear the listbox
        LB_Files.Items.Clear()


        'set the lbel text for the list box
        Label1.Text = "Finding all instances of:  " & TB_File.Text & " in directory:  " & TB_Drive.Text & " and all sub-driectories... PLEASE STAND BY"
        'make sure the label updates
        Me.Refresh()

        'run through and find each file and add it to the listbox
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(TB_Drive.Text, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, TB_File.Text)

            'check if the file is a shortcut and if it is do nothing
            If foundFile.Contains(".lnk") Then

            Else

                Dim infoReader As System.IO.FileInfo
                infoReader = My.Computer.FileSystem.GetFileInfo(foundFile)
                newfilesize = infoReader.Length
                'MsgBox("The old file size is: " & oldfilesize & ",  and the new file size is:  " & newfilesize)
                'for each file that is not a shortcut, add it to the list box

                'check if the file sizes match, don't want to add a file if it is not the same file
                If newfilesize = oldfilesize Then

                    LB_Files.Items.Add(foundFile)
                    'update the file count
                    count = count + 1
                    newfilesize = 0

                End If
                'reset the newfilesize
                newfilesize = 0
            End If


        Next
        'once we find all the files, change the lable to say how many we have.
        Label1.Text = "Found " & count.ToString & " instances of " & TB_File.Text & "."

    End Sub