FileSearch Problem on Access 2003 / WinXP

[Ed2020]

Hi, I am using the code below to generate file listing reports on our network drives.

With Application.FileSearch
    .NewSearch
    .LookIn = strDriveToScan
    .SearchSubFolders = True
    .FileType = msoFileTypeAllFiles
    .Execute
    For lngFileIndex = 1 To .FoundFiles.Count
        rstLog.AddNew
            rstLog!ScanTime = dteScanTime
            rstLog!FilePath = .FoundFiles(lngFileIndex)
            Set MyFile = MyFSO.GetFile(.FoundFiles(lngFileIndex))
            rstLog!DateCreated = MyFile.DateCreated
            rstLog!DateLastAccessed = MyFile.DateLastAccessed
            rstLog!DateLastModified = MyFile.DateLastModified
            rstLog!FileSize = FileLen(.FoundFiles(lngFileIndex))
            Set MyFile = Nothing
        rstLog.Update
    Next lngFileIndex
End With

This worked file under NT4 and Access 2000, but we have recently been upgraded to WinXP and Access 2003. Now the FileSearch object is only returning a maximum of 65530 results.

Can anyone help please?



Please do not feed the trolls.....

 

[Ed2020]

<BUMP>

Anyone...?

Please...?



Ed Metcalfe.

Please do not feed the trolls.....