【求助】Access通用系统1.1在2007版本下的替代方案

红尘如烟发布的Access通用系统v1.1是Access 2003格式的，其中的VBA用到FileSearch方法，可是该方法在Access 2007中已被取消，通过查找帮助发现可以采用dir或者FileSystemObject来替代，但是由于我是新手，总是没有搞定如下代码的替代方案，还望高手指点。

以下是红尘如烟发布的“Access通用系统v1.1”中modBackupData的片段代码：

'    With Application.FileSearch
'        .NewSearch
'        .LookIn = strBackupDir
'        .SearchSubFolders = False
'        '如果已有备份文件数量加1大于允许的最大备份数量，则删除多出来的早期文件
'        lngMaxQty = GetDbSetting("MaxBackFileQuantity", 0)
'        .FileName = "*.bak"
'        If .Execute > 0 And lngMaxQty > 0 Then
'            If .FoundFiles.Count + 1 > lngMaxQty Then
'                For intI = 1 To (.Execute + 1 - lngMaxQty)
'                    Kill .FoundFiles(intI)
'                Next
'            End If
'        End If        '
'    '根据备份模式删除已有的备份文件（例如备份模式为每天一个备份，如果当天已经进行过备份，
'    '则再次备份时之前的备份文件会被删除）
'        lngBackupMode = GetDbSetting("BackupMode", conBackupModeSaveAll)
'        Select Case lngBackupMode
'        Case conBackupModeSaveAll
'            .FileName = Format$(Now(), "yyyymmdd.hhnn") & "*.bak"
'        Case conBackupModeSaveEveryDay
'            .FileName = Format$(Now(), "yyyymmdd") & "*.bak"
'        Case conBackupModeSaveEveryMonth
'            .FileName = Format$(Date, "yyyymm") & "*.bak"
'        End Select
'        If .Execute > 0 Then
'            For intI = 1 To .FoundFiles.Count
'                Kill .FoundFiles(intI)
'            Next
'        End If
'    End With

由于“Access通用系统v1.1”中多处使用了FileSearch，因此希望高手能帮忙给出上述代码采用Dir()配合数组的替代方案，以供小弟参考修改众多地方的FileSearch，非常感谢！