ник: ЕленаПетрова
Всем доброго времени суток.
Не получается переписать код для 2007 офиса 
Не хватает знаний и нет времени разобраться - очень срочно нужно перейти на версию 2007 года, т.к в ней есть бесплатная версия для пользователя.
Помогите, пожалуйста. Application.FileSearch - не работает в 2007. Нужно исправить , наверное, с Dir(), но у меня не получилось((((
With Application.FileSearch
.NewSearch
.LookIn = Путь
.FileName = ImBasa
.SearchSubFolders = True
ALLFILES = .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending)
If ALLFILES < КолКоп Then
fCopyFile ПутьБазы, ПутьКоп & "\" & Date & " " & ImBasa
CurrentDb.Execute "DELETE tKolCopBase.* FROM tKolCopBase;"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
Set RstCopBase = CurrentDb.OpenRecordset("tKolCopBase", dbOpenDynaset)
For i = 1 To .FoundFiles.Count
With RstCopBase
.AddNew
!NOM = i
!PatchBaze = Replace(Application.FileSearch.FoundFiles(i), ПутьКоп & "\", "")
.Update
End With
Next i
End If
RstCopBase.Close
Else
fDeleteFile Путь & "\" & DMin("PatchBaze", "tKolCopBase", "")
CurrentDb.Execute "DELETE tKolCopBase.* FROM tKolCopBase;"
fCopyFile ПутьБазы, ПутьКоп & "\" & Date & " " & Sdat & ImBasa
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
Set RstCopBase = CurrentDb.OpenRecordset("tKolCopBase", dbOpenDynaset)
For i = 1 To .FoundFiles.Count
With RstCopBase
.AddNew
!NOM = i
!PatchBaze = Replace(Application.FileSearch.FoundFiles(i), ПутьКоп & "\", "")
.Update
End With
Next i
End If
RstCopBase.Close
End If
End With
End If
Очень нужно. Спасибо.