Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: snipe
надо было сделать что-то типа резервного копирования

открыл виндовский блокнот
написал


Dim strDBPath
Dim strPath
Dim fso
strDBPath = "\\Terminal\Почта\база_db.mde"
strPath = "D:\модуль автосохранение\база_db_" & Date() & ".mde"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strDBPath, strPath
Set fso = Nothing


сохранил из под блокнота как txt
переименовал, точнее изменил расширение на vbs

засунул файлик в автозагрузку

теперь при запуске моего компа создается копия базы
(неудобно конечно приходится папку иногда чистить, но при не имении бабушки.......)


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.