копирование клиента в сети

[satka]

Может вопрос не в эту ветку, но всё же это нужно для Access файла.
Проблема в том чтобы скопировать в определённую папку на разные компьютеры, которые объеденены в маленькую локальную сеть, файла клиента для работы с базой данных. То есть база разделена на два файла: данные и формы. Данные, естественно хранятся на одном компе, формы нужны на всех остальных. Подскажите программу для копирования, которая допустим раз в день, с указаного места копирует на другие файл, или предложите другое решение проблемы. Заранее спасибо за ответы. А то я уже запарился делать это в рукопашную.

[gluk_fm]

Как вариант создаёте таблицу с путями.
Делаете рекордсет с данной таблицы и пишите что-то вроде:

fal = "MIS_Corp_" & Mid(data![F1], 7, 4) & "_" & Mid(data![F1], 4, 2) & "_" & n_f & ".xls"
fal1 = papka & "\" & fal
Set fs = CreateObject("Scripting.FileSystemO bject")
papka_1 = papka & "\"
Set tFolder = fs.GetFolder(papka_1)

For Each tFile In tFolder.Files
If fal1 = tFile Then
Kill tFile
End If
Next
FileCopy "T:\budget\Razbivki\MIS_Corp\t\macr os\MIS_Corp_blank2003.xls", papka & "\" & fal


Делал с переменными, но думаю разберётесь

[Teslenko_EA]

Здравствуйте satka.
Очевидно цель задачи: обновление интерфейса Вашей программы у пользователей. Но "..скопировать в определённую папку на разные компьютеры.." т.е. принудительно раздавать клиентам - не самое верное решение. Гораздо проще со стороны клиента обновлять приложение, это удобно делать VBS скриптом создав ему ярлык для пользователя или поместив его в папку Автозагрузки системы.
Образец скрипта прилагаю, в нём Вы найдете комментарии.

Успехов Вам.

to : gluk_fm
для удобочитаемости выкладываемый код необходимо заключать в тэги [СODE]...[/СODE],
для этого на панели Сообщение: расположена кнопка - #

Евгений.