Статус: Новичок
Группы: Участники
Зарегистрирован: 18.02.2019(UTC) Сообщений: 2
|
Здравствуйте кто сможет помочь у меня есть папка на котором лежит два подписанных файла теперь я хочу зашифровать эти файлы с помошью tdhelper.vbs только он шифрует каждого по отдельности а мне надо чтобы он сначало архивировал потом шифровал у меня ОС WINDOWS
|
|
|
|
Статус: Сотрудник
Группы: Участники
Зарегистрирован: 30.06.2016(UTC) Сообщений: 3,376 Сказал «Спасибо»: 53 раз Поблагодарили: 773 раз в 715 постах
|
Автор: Maloi Здравствуйте кто сможет помочь у меня есть папка на котором лежит два подписанных файла теперь я хочу зашифровать эти файлы с помошью tdhelper.vbs только он шифрует каждого по отдельности а мне надо чтобы он сначало архивировал потом шифровал у меня ОС WINDOWS Здравствуйте. С данным вопросам Вам лучше обратиться к разработчику - ООО "Цифровые технологии". |
|
|
|
|
Статус: Новичок
Группы: Участники
Зарегистрирован: 18.02.2019(UTC) Сообщений: 2
|
Автор: Александр Лавник Автор: Maloi Здравствуйте кто сможет помочь у меня есть папка на котором лежит два подписанных файла теперь я хочу зашифровать эти файлы с помошью tdhelper.vbs только он шифрует каждого по отдельности а мне надо чтобы он сначало архивировал потом шифровал у меня ОС WINDOWS Здравствуйте. С данным вопросам Вам лучше обратиться к разработчику - ООО "Цифровые технологии". уже обращался только без ответа
|
|
|
|
Статус: Эксперт
Группы: Участники
Зарегистрирован: 05.03.2015(UTC) Сообщений: 1,602 Откуда: Иркутская область Сказал(а) «Спасибо»: 110 раз Поблагодарили: 393 раз в 366 постах
|
Сделать еще один батник или скрипт (для архивации) очень просто. При желании потом можно и объедить скрипты, только надо адаптировать под Ваш случай и наименования переменных в основном скрипте. Вот составил из кусочков более сложного скрипта:
Код: Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
' Корневая папка - в которой лежит скрипт
RootPath=FSO.GetFolder(".").Path
' в корневой папке - подпапки in и out
Set Folder=FSO.GetFolder(BasePath+"in")
Set Folder2=FSO.GetFolder(BasePath+"out")
' очистка выходной папки - игнорируем ошибки
On error Resume Next
For Each F2 In Folder2.Files
F2.Delete True
Next
On error Goto 0
' поиск архиватора - для примера взят winrar им можно создать архивы форматов rar и zip (в новых версиях еще rar5)
' использую вариант winrar.exe который может оба формата, есть еще консольный rar.exe там только rar
' у меня на разных рабочих местах архиватор в разных местах так что сначала ищу в одном
Wrar="""c:\program files\winrar\winrar.exe"""
' если там нет - предполагаю что есть во втором
If Not FSO.FileExists(Replace(wrar,"""","")) Then Wrar="""d:\program files\winrar\winrar.exe"""
' имя целевого архива - здесь указано конкретное имя, но можно например взять из аргументов скрипта
' или возможно включить дату и номер архива за сегодня - за подробностями смотрите справку по архиватору
FN2 = "1.zip" ' конкретное имя
'FN2 = "1" ' подразумевается автодобавление .rar архиватором, то есть будет "1.rar"
'FN2 = WScript.Arguments(1) ' из аргументов скрипта
' имя файла в папке. Внимание! Если FN = "" будет заархивирована вся папка
' можно указать маску файлов *.* или *.xml например
FN = ""
' это команда для архивации с максимальным сжатием и добавлением информации для восстановления - за подробностями смотрите справку по архиватору
' скрипт ожидает окончания архивации, архиватор виден
WshShell.Run WRar+" a -ep1 -m5 """+BasePath+"out\"+FN2+""" """+BasePath+"in\"+FN+"""", 1, True
Set Folder=Nothing
Set Folder2=Nothing
Set WshShell=Nothing
Set FSO=Nothing
Отредактировано пользователем 19 февраля 2019 г. 4:56:25(UTC)
| Причина: Не указана
|
|
|
|
Быстрый переход
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.
Important Information:
The Форум КриптоПро uses cookies. By continuing to browse this site, you are agreeing to our use of cookies.
More Details
Close