[putinka]

Используйте тэг [code]. »

Код:

' Получаем доступ к ФС
set fso = CreateObject("Scripting.FileSystemObject")
 
' Эта штука нужна для работы с датой модификации файла
Set osa = CreateObject("Shell.Application")
 
' Каталог баз
set intFl = fso.GetFolder("d:\\test\\")
 
' Получим вчерашнюю дату и преобразуем её в нужный нам вид, чтобы получить  
' независимый от настроек результат сравнения
ytday = now()-1
ytday = year(ytday) & "-" & month(ytday) & "-" & day(ytday)
 
set spFl = intFl.SubFolders    ' Получаем список каталогов баз
 
For Each bs in spFl
    ' Получим доступ к каталогу из объекта Shell
set objFl = osa.NameSpace(bs)
 
    ' Найдём файл базы данных
    bdFi = objFl.ParseName("1Cv8.1CD")
 
    ' Получим дату изменения файла базы данных в нужном виде для сравнения
    dlmFl = year(bdFi.ModifyDate) & "-" & month(bdFi.ModifyDate) & "-" & day(bdFi.ModifyDate)
     
    ' Если дата изменения файла базы данных равна вчерашнему числу, то  
    ' эту базу данных будем обрабатывать
    If dlmFl=ytday Then
    ...........
    End If
 
    ' А теперь надо вернуть дату модификации файла базы данных в исходное состояние
    bdFi.ModifyDate = ytday
Next

Подозреваю, что в NameSpace() надо передавать текстовое значение, отсюда и куролесит мой скрипт.