Помогите написать програмку
Есть файл xls мне нужно написать програмку которая бы копировала этот файл в другое место с интервалом 1 час. И возможно ли сделать так, чтобы это происходило даже если этот файл не открыт?
Спасибо!
Спасибо!
Функция для копирования файла средствами VB:
[FONT="Courier New"]FileCopy(Source, Destination)[/FONT]
Ставиш таймер с интервалом равным 1000 (одна секунда) и ждеш пока он сработает 3600 раз (через час). Для етого необходимо использовать счетчик (просто поставь в начале процедуры таймера ету строчку: Static tmr as Integer и напиши под ней следующее: tmr = tmr + 1) а когда таймер пробьет 3600 раз - тогда обнуляй счетчик (tmr = 0).
[FONT="Courier New"]FileCopy(Source, Destination)[/FONT]
Ставиш таймер с интервалом равным 1000 (одна секунда) и ждеш пока он сработает 3600 раз (через час). Для етого необходимо использовать счетчик (просто поставь в начале процедуры таймера ету строчку: Static tmr as Integer и напиши под ней следующее: tmr = tmr + 1) а когда таймер пробьет 3600 раз - тогда обнуляй счетчик (tmr = 0).
А нужно решить задачу или написать программу? Просто это делается намного проще: создается батник и ставится в шедуллер.
2Комаджу
Но если написать батник то досовское окно будет мешать, а если его убрать то убить процесс выполнения бата можно будет только с помощью Ctrl+Alt+Del. А если написать прогу например на VB то можно полностью контролировать ее.
Но если написать батник то досовское окно будет мешать, а если его убрать то убить процесс выполнения бата можно будет только с помощью Ctrl+Alt+Del. А если написать прогу например на VB то можно полностью контролировать ее.
Цитата: Bard
Функция для копирования файла средствами VB:
[FONT="Courier New"]FileCopy(Source, Destination)[/FONT]
Ставиш таймер с интервалом равным 1000 (одна секунда) и ждеш пока он сработает 3600 раз (через час). Для етого необходимо использовать счетчик (просто поставь в начале процедуры таймера ету строчку: Static tmr as Integer и напиши под ней следующее: tmr = tmr + 1) а когда таймер пробьет 3600 раз - тогда обнуляй счетчик (tmr = 0).
[FONT="Courier New"]FileCopy(Source, Destination)[/FONT]
Ставиш таймер с интервалом равным 1000 (одна секунда) и ждеш пока он сработает 3600 раз (через час). Для етого необходимо использовать счетчик (просто поставь в начале процедуры таймера ету строчку: Static tmr as Integer и напиши под ней следующее: tmr = tmr + 1) а когда таймер пробьет 3600 раз - тогда обнуляй счетчик (tmr = 0).
Я имел ввилу реализацию через VBA, тоесть создать макрос или модуть в етом файле. Как сделать так, чтобі єто работало тогда когда файл закрит???
С VBA не знаком, но мне кажеться что проще написать ето как отделбную прогу...
Цитата: Bard
2Комаджу
Но если написать батник то досовское окно будет мешать, а если его убрать то убить процесс выполнения бата можно будет только с помощью Ctrl+Alt+Del. А если написать прогу например на VB то можно полностью контролировать ее.
Но если написать батник то досовское окно будет мешать, а если его убрать то убить процесс выполнения бата можно будет только с помощью Ctrl+Alt+Del. А если написать прогу например на VB то можно полностью контролировать ее.
Проблема с окном решается очень просто:
1. Создается юзер в винде с правами администратора (а может и меньшими правами - я не в курсе, какие требуются на работу шедуллера).
2. Устанавливается батник в шедуллер под новым юзером.
Соответственно окна никто не видит.
Цитата: Andi_SPAWN
Я имел ввилу реализацию через VBA, тоесть создать макрос или модуть в етом файле. Как сделать так, чтобі єто работало тогда когда файл закрит???
При такой постановке задачи - никак. Инициирующее процесс копирования средство (макрос, программа, сценарий и т.п.) должны быть внешними по отношению к закрытой книге.