Microsoft KB Archive/177091

= ACC97: No Match Results in FileSearch When Adding FileType =

Article ID: 177091

Article Last Modified on 1/22/2007

-

APPLIES TO


 * Microsoft Access 97 Standard Edition

-



This article was previously published under Q177091



Advanced: Requires expert coding, interoperability, and multiuser skills.



SYMPTOMS
When you search for file extensions by using the FileType property of the FileSearch object, certain file extensions may return a "files found = 0" message even though the information does exist.

For example, this behavior occurs if you search for information on any of the following file extensions:


 * SYS
 * DLL
 * VXD
 * 386
 * DRV



CAUSE
When you search for files that are hidden by default by Windows, they are excluded from indexing and content searching if the FileType property is included.



RESOLUTION
Do not include the FileType property if the file extension is not normally found in the Files Of Type box in the File Open dialog box.



STATUS
This behavior is by design.



Steps to Reproduce Behavior
  Create a module and type the following line in the Declarations section if it is not already there:

     Option Explicit   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   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   Comment out the following line of code by placing an apostrophe (') in front of the line:

.FileType = msoFileTypeAllFiles </li> Rerun the procedure.

Note that the message box displays the correct count for the files that contain the search string.</li></ol>

<div class="references_section">