Всем доброе время суток.
Подскажите плиз, как программно заархивировать с паролем! папку используя winrar?
Заранее благодарен всем за помощь!
Подскажите, как архивировать папку?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 17
• Страница 1 из 1
- Lexoos
- Начинающий
- Сообщения: 20
- Зарегистрирован: 02.12.2005 (Пт) 8:54
Подскажите, как архивировать папку?
Lexoos » 24.04.2006 (Пн) 12:27
- RayShade
- Scarmarked
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 24.04.2006 (Пн) 12:32
Открыть папку с winrar... найти там файл winrar.hlp... в нём раздел "Режим командной строки"... там все ключи описаны...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- Amed
- Алфизик
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
Amed » 24.04.2006 (Пн) 13:07
- Код: Выделить всё
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' Run Calculator.
MSDN писал(а):Runs an executable program and returns a Variant (Double) representing the program's task ID if successful, otherwise it returns zero.
Syntax
Shell(pathname[,windowstyle])
- vvs_adm
- Гуру
-
- Сообщения: 1492
- Зарегистрирован: 03.02.2005 (Чт) 3:45
- Откуда: оттуда ;)
vvs_adm » 24.04.2006 (Пн) 13:09
Теперь как-то сооруди строку запроса в поиске. Что бы ее выполнить, нажми на кнопку "ПОИСК"Lexoos писал(а):вообщем коммандную строку как то соорудил, вопрос иной - как ее из выполнить?
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!
- Lexoos
- Начинающий
- Сообщения: 20
- Зарегистрирован: 02.12.2005 (Пт) 8:54
Lexoos » 24.04.2006 (Пн) 13:14
Что то ни каких действий не происходит, подскажите плиз ошибку?
Dim s As String
s = "rar a -hp321 " & Chr$(34) & "C:\Documents and Settings\user\Desktop\secret" & Chr$(34) & " " & Chr$(34) & "C:\Documents and Settings\user\Desktop\data" & Chr$(34)
Dim RetVal
RetVal = Shell(s, 1)
Dim s As String
s = "rar a -hp321 " & Chr$(34) & "C:\Documents and Settings\user\Desktop\secret" & Chr$(34) & " " & Chr$(34) & "C:\Documents and Settings\user\Desktop\data" & Chr$(34)
Dim RetVal
RetVal = Shell(s, 1)
- Lexoos
- Начинающий
- Сообщения: 20
- Зарегистрирован: 02.12.2005 (Пт) 8:54
Lexoos » 24.04.2006 (Пн) 14:41
Спасибище огромнейшее!!!
Получилось!!! Ура!!!
Откудава я мог знать то что это надо делать????
Вот только косяк какойто - в архиве оказались папки со всеми вложенными начиная с document & sett пустые конечно, но все равно, можно как то это исправить и в архив помещать только папку data?
Получилось!!! Ура!!!
Откудава я мог знать то что это надо делать????
Вот только косяк какойто - в архиве оказались папки со всеми вложенными начиная с document & sett пустые конечно, но все равно, можно как то это исправить и в архив помещать только папку data?
Сообщений: 17
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 107