ник: snipe
открываешь блокнот
пишешь
Dim strDBPath
Dim strPath
Dim fso
strDBPath = "\\Terminal\Почта\ПлановыйМодуль\terma_db.mde"
strPath = "D:\Плановый модуль автосохранение\terma_db_" & Date() & ".mde"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strDBPath, strPath
Set fso = Nothing
strDBPath = "\\Terminal\Почта\Журнал для Юристов_be.mdb"
strPath = "D:\Журнал для Юристов автосохранение\Журнал для Юристов_be_" & Date() & ".mdb"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strDBPath, strPath
Set fso = Nothing
закрываешь блокнот сохраняя файл как txt
переименовываешь файл с txt в vbs
все