ACC97: No Match Results in FileSearch When Adding FileType (177091)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a module and type the following line in the Declarations section if it is not already there:
   

         Option Explicit
   						

2. Type the following procedure:
   

         Sub TestSearch()
            Dim objFS As Object
   
            Set objFS = Application.FileSearch
   
            With objFS
   
               '  Resets all the search criteria settings to their default
               '  settings.
               .NewSearch
   
               '  Where to search in Windows 95. For Windows NT 4.0, change
               '  the path to "C:\Winnt\System32\".
               .LookIn = "C:\"
   
               '  This will limit the search.
               .FileType = msoFileTypeAllFiles
   
               .FileName = "*.SYS"
   
               '  Search for "WinDir" within a file. This string is present
               '  in the file, MSDOS.SYS, in Windows 95. For Windows NT 4.0,
               '  change to "Invalid."
               .TextOrProperty = "WinDir"
   
               '  Limit the search to the root.
               .SearchSubFolders = False
   
               '  Begin the search.
               .Execute
           End With
   
            ' Show the number of files found.
            MsgBox "Files found = " & objFS.FoundFiles.Count
   
         End Sub
   						

3. To test this function, type the following line in the Debug window, and then press ENTER:
   

   TestSearch

   
   Note that the message box opens and displays the following message:
   

         Files found = 0
   						

4. Comment out the following line of code by placing an apostrophe (') in front of the line:
   

         .FileType = msoFileTypeAllFiles
   						

5. Rerun the procedure.
   
   Note that the message box displays the correct count for the files that contain the search string.