ник: Дядя Федор
Первый раз не сработала.
Второй после одного прогона в отладчике сработала.
Вставил обработчик ошибок.
Ошибки не ловит.
Закрыл базу. Открыл. Все работает.
ПС. Забавно. Разархивировал еще раз. Опять ругается на какой-то модуль.
Открыл в отладчике.Закрыл.
Все работает.
Возможно не описана переменнаz fso as object
Вставь
Option Explicit
......
Dim fld, f1, fc, S, kol_vo, STR_File_NAME$, txt$
Dim fso As Object, ts As Object
Может пройдет с первого раза