forum.lissyara.su

Код: Выделить всё

Option Explicit
On Error Resume Next 'Чтобы отладочное окно не вылетало
Dim Return
Dim path81_from, path77_from, pathDOC_from, pathOLD_from, pathDOClab_from
Dim path81_where, path77_where, pathDOC_where, pathOLD_where, pathDOClab_where

path81_from = "E:\!!!BASEs\81"
path77_from = "E:\!!!BASEs\77"
pathOLD_from = "E:\!!!BASEs\OLD"
pathDOC_from = "E:\ДОКУМЕНТЫ"
pathDOClab_from = "E:\ДОКУМЕНТЫ лаборатории"

path81_where = "F:\!BACKUP\01\BASES-1C"
path77_where = "F:\!BACKUP\01\BASES-1C"
pathOLD_where = "F:\!BACKUP\01\BASES-1C"
pathDOC_where = "F:\!BACKUP\01\DOCUMENTs"
pathDOClab_where = "F:\!BACKUP\01\DOCUMENTsLab"

'возможности WSH по доступу к файловой системе
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'возможности Shell
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

'Очищаем бэкаповскую папку
fso.DeleteFolder "F:\!BACKUP\01\*"
fso.DeleteFile   "F:\!BACKUP\01\*"

'Все базы платформы 81
'копируем
fso.CopyFolder path81_from, path81_where

'Все рабочие базы платформы 77
'копируем
fso.CopyFolder path77_from, path77_where

'Все старые, но тоже рабочие базы платформы 77
'копируем
fso.CopyFolder pathOLD_from, pathOLD_where

'Все рабочие документы
'копируем
fso.CopyFolder pathDOC_from, pathDOC_where

'Все документы лаборатории
fso.CopyFolder pathDOClab_from, pathDOClab_where

WScript.Echo "Понедельник. Резервное архивирование рабочих баз 1С и документов выполнено!"