Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Перевод скрипта архивации с CMD на VBS

Ответить
Настройки темы
VBS/WSH/JS - Перевод скрипта архивации с CMD на VBS

Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать

Добрый вечер!

Помогите перевести скрипт на язык VBS.
Скрипт по заданному списку архивирует в целевую папку C:\ALL_BASES\Lenta\ базы ... Через семь дней (может меняться) архивы перезатирают сами себя ... Архивируемые папки (базы) заданы в виде списка (был вариант и с отдельным файлом), но с учетом бОльших возможностей языка VBS можно, наверное, оформить его в виде массива ... В скрипте ведется лог, где фильтруются положительные сообщения. В норме он ничего не содержит. Приветствуется некоторое улучшение (предложение) в скрипте.

cls
color 27
@echo off

set ArchDate=%Date:~6,4%%Date:~3,2%%Date:~0,2%
set Log=%~dp0%ArchDate%_LogBackup.txt
set ArchName=C:\ALL_BASES\Lenta\
set Filter=FINDSTR /V /B /I /C:Compressing /C:"7-Zip 4" /C:Scanning /C:"Creating archive" /C:"Everything is Ok" /R /C:$
set Num=0

For /F "Delims=" %%I In (%~dp0Numer.txt) Do Set Num=%%I
rem del %ArchName%*_%Num:~0,1%.7z
if %Num%==7 (set Num=1) else (set /a Num=Num+1)
echo %Num% >%~dp0Numer.txt

rem ---Список копируемых папок ----------------------------------------------------
rem Параметры: 1-что копируется, 2- добавка к имени архива , 3-флаг удаления после архивации, 4-если нужно исключаемые папки из архивирования

:,C:\Users\DOCUMENTS,DOCUMENTS,No,"-x!C:\Users\DOCUMENTS\Dir1 -x!C:\Users\DOCUMENTS\Dir2";
:,C:\1C_BUH\BUH,1C_Buh,No,,;
:,C:\1C_BUH\ZAR,1C_ZAR,No,,;
:,C:\Prog1\Dir1,Name1,No,,;
:,C:\Prog2\Dir2,Name2,No,,;
:,C:\Prog3\Dir3,Name3,No,,;
:,N:\Prog4\Dir4,Name4,No,,;
:,N:\Prog5\Dir5,Name5,No,,;
...
и т.д.

rem ---Цикл обработки списка копируемых папок для подстановки в процедуру---

pushd %~p0
FOR /F "delims=, eol=; tokens=1-5" %%i in (BackupBases.cmd) do if %%i==: Call :PROC %%j %%k %%l %%m
popd

GoTo End

rem ---Процедура копирования папок------------------------------------------

:PROC
cd /d %1
if exist %1\nul (
echo Идет копирование базы %1. Ждите ...
"C:\Program Files\7-zip\7z.exe" a -r %ArchName%%2_%Num% %1\* %~4 |%Filter% >>%Log%
cd ..
if "%3"=="Yes" rmdir %1 /s /q >>%Log%
)
Exit /b

:End

Отправлено: 21:21, 27-05-2012

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата Serg2010:
был вариант и с отдельным файлом »
Это самый правильный путь.

Отправлено: 23:46, 27-05-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для CyberMuesli

Старожил


Сообщения: 207
Благодарности: 18

Профиль | Отправить PM | Цитировать

Цитата Serg2010:
Помогите перевести скрипт на язык VBS. »
зачем

-------
Кибер Мюсли

Отправлено: 03:08, 29-05-2012 | #3


Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать

чтобы продолжить его улучшение и учиться лучшему ...

порой все конструкции батников и их нюансы выводят из себя ... Он хорош для "ломания" головы

Отправлено: 21:03, 29-05-2012 | #4


Аватара для CyberMuesli

Старожил


Сообщения: 207
Благодарности: 18

Профиль | Отправить PM | Цитировать

работает же. зачем трогать

-------
Кибер Мюсли

Отправлено: 02:33, 30-05-2012 | #5


Забанен


Сообщения: 216
Благодарности: 62

Профиль | Цитировать

Меня кстати тоже заинтересовал этот вопрос, так как всё таки перевести скрипт архивации из CMD в VBS?

читать дальше »
Цитата CyberMuesli:
работает же. зачем трогать »
Все говорят "работает же. зачем трогать", а ты возьми и сделай!
Цитата CyberMuesli:
зачем трогать »
Цитата Serg2010:
чтобы продолжить его улучшение и учиться лучшему ... »
А может ему в будущем понадобится оболочка, интерфейс или как там ещё называется, а не надоедливая командная строка.

Не в обиду.

Отправлено: 03:35, 30-05-2012 | #6


Аватара для ferget

Разный


Сообщения: 1294
Благодарности: 359

Профиль | Отправить PM | Цитировать


Цитата Devils Night:
Все говорят "работает же. зачем трогать", а ты возьми и сделай! »
не думаю что, если CyberMuesli переделает скрипт, то знания Serg2010 в vbs серьезно повысятся

Цитата Devils Night:
А может ему в будущем понадобится оболочка, интерфейс или как там ещё называется, а не надоедливая командная строка. »
называется по разному, но с vbs мало связано
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:29, 30-05-2012 | #7


Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать

Никакого умысла тут нет, просто написал скрипт на смд, понял что говно, ирешил освоить wsh. Для начала свои батники перевести на него. Вот и всё

Отправлено: 23:32, 31-05-2012 | #8



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Перевод скрипта архивации с CMD на VBS

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Службы - Проблема с запуском архивации Cr00t Microsoft Windows 7 7 02-02-2022 08:40
Настройка архивации Ксенька Нечаева Тест-форум 0 24-12-2011 15:55
Зависает на архивации? msec Хочу все знать 0 26-07-2011 08:03
Службы - Отключения служби архивации данних meloyn Тест-форум 0 07-03-2011 12:38
Система - Программы для архивации и восстановления реестра Sparkster Программное обеспечение Windows 6 02-10-2007 20:20


« Предыдущая тема | Следующая тема »


 
Переход