Hi,

I am working with Microsoft Access 2010. I have an application which was developed in Access 2003 and is using the Application.FileSearch command.

This command is not present in Access2010 please could anyone check and update the code to cater for the FileSearch..

Code:
Sub Search2()
On Error GoTo Search_Err

    Dim strPrompt As String, strTitle As String
    
    
    ChDir AttachmentPath   ' Changes directory to new file path
                       
    Dim i As Integer
    With Application.FileSearch
        .LookIn = AttachmentPath
        .FileName = Fname
        If .Execute > 0 Then
            AttachST = 1
        Else
            AttachST = 0
            Exit Sub
        End If
    End With

Search_Exit:
    Exit Sub

Search_Err:
    MsgBox "File Path Not Found (" & Error$ & ")", vbInformation, vbNullString
    Resume Search_Exit

End Sub
Thank you ever so much