Всем доброго времени суток.
Не получается переписать код для 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

Очень нужно. Спасибо.

Тут посмотрите
http://hiprog.com/forum/read.php?id_forum=1&id_theme=5167&page=1

файл можно удалить командой kill

Спасибо, много нужного там нашла.