Создание архива с паролем - 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 "Упакован успешно."

Оцени полезность:

14   голосов , оценка 3.857 из 5