Создание архива с паролем - VB
Формулировка задачи:
Код полностью рабочий от Программера, но вот стала интересна одна деталь: можно ли программно задать пароль к этому архиву? Буду рад любой информации, может быть где-то описаны методы, как это сделать
Решение задачи: «Создание архива с паролем»
textual
Листинг программы
Dest = "C:\db.rar" Arch = "C:\Program files\WinRar\rar.exe" LocalFileName = Environ("USERPROFILE") & "\AppData\Roaming\HamsterSoft\" Pass = "PASSWORD" ret = CreateObject("WScript.Shell").Run("cmd /c """ & """" & Arch & """" & " a -r -ep1 -hp" & Pass & " " & _ """" & Dest & """" & " " & _ """" & LocalFileName & """" & """", 0, True) 'True - дожидаемся пока упакует If ret = 0 Then Msgbox "Упакован успешно."
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д