Need help with FileSearch function and Excel2007/Access2007

[sbmoffshore]

Hi All,

We recently upgraded to Office 2007 suite and now are having issues exporting data from Access. We are trying to export to Excel and the process fails at the FileSearch. I'm not a programmer and our company don't have an Access DB programmer at our company. Can someone be so kind as to help out? Thanks in advance!

Below is where the error occurs in the coding:

Function findFile(strTemp As String) As Boolean

    With Application.FileSearch

    .NewSearch
    .LookIn = filePath(strTemp)
    .SearchSubFolders = False
    .filename = filename(strTemp)
    .MatchTextExactly = True
    ' .FileType = msoFileTypeAllFiles
    If .Execute() > 0 Then
    findFile = True
    Else
    findFile = False
    End If
    End With
End Function