Access2010Application.FileSearch取消了 怎么代替

    With Application.FileSearch
        .FileType =msoFileTypeAllFiles
        .LookIn = strpath
        .fileName = "*.bei"
        .SearchSubFolders = False
        If .Execute() > 0 Then
            For intI = 1 To .FoundFiles.Count
                Me.BackupFiles.AddItem Replace(.FoundFiles(intI), spath, "")
           Next
        End If

    End With

2010版取消了Application.FileSearch 怎么代替 求大侠帮忙写下