Распаковать программно архив rar

@ВладимирСамохин · Регистрация: 07.05.2013

Студворк — интернет-сервис помощи студентам

Уважаемые ГУРУ помогите пожалуйста с решением проблемы.
Пишу приложение которое обрабатывает входящюю почту из outlook
туда приходят файлы xl и архивы могут rar могут zip.
с проблемой как распаковать zip архив разобрался вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Sub ExtractFileFromZip(ByVal FileZip As String, ByVal FileDoc As String, ByVal DesPath As String)
' функция проводит распаковку zip архива 
On Error GoTo err1
 
 Dim ShellClass As Shell32.Shell 'Microsoft Shell Controls and Automation
 Dim FileSource As Shell32.Folder
 Dim FileDestin As Shell32.Folder
 Dim FolderItem As Shell32.FolderItems
 Dim f
 Set ShellClass = New Shell32.Shell
 Set FileSource = ShellClass.NameSpace(FileZip) 'путь откуда
Set FileDestin = ShellClass.NameSpace(DesPath) ' путь куда
Set FolderItem = FileSource.Items
 
 If FileDoc = "" Then
 FileDestin.CopyHere FolderItem, 0 ' распаковывает только 1 элемент
Else
 For Each f In FolderItem
 If UCase(f) = UCase(FileDoc) Then ' распаковывает все
FileDestin.CopyHere f, 0
 Exit For
 End If
 Next
 End If
 
 Set ShellClass = Nothing
err1:
 If Err.Number <> 0 Then
 MsgBox Err.Description, vbExclamation, "Error"
 End If
End Sub

Может кому пригодится (все работает).

но теперь вопрос:

нужно таким же образом распаковать архив rar. нигде не нашел ответа

подскажите кто знает пожалуйста...
Вариант с командной строкой типа
rar.exe и тд.. не подходит так как установлено только 7z архив.

toiai · 20.06.2013, 17:18

Посмотри здесь:
Создание папки по названию темы и выгрузка туда прикрепленных файлов к письму

@ikki · 20.06.2013, 20:05

Сообщение от toiai

Посмотри здесь:

можете не смотреть, ибо

Сообщение от ВладимирСамохин

Вариант с командной строкой типа rar.exe и тд.. не подходит

а там именно такой вариант.

странно, но гугл таки не помог - все найденные варианты именно с использованием командной строки запуска WinRar.
позвольте полюбопытствовать?

Сообщение от ВладимирСамохин

так как установлено только 7z архив.

отчего такой каприз? почему нельзя установить WinRar - можно считать, бесплатный?

иначе. боюсь, придётся либо ждать, когда Microsoft добавит функцию распаковки rar-ов в WinAPI, как уже сделала это с zip-ами, либо читать файл побайтово и реализовывать алгоритм распаковки на VBA.

и, кстати, Ваше

Сообщение от ВладимирСамохин

(все работает)

- тоже не 100%-ная гарантия. эта функция появилась только в WinXP, причем, кажется даже не сразу, а в каком-то сервис-паке.
и если Ваш макрос попадёт на машину с Win98 - то увы.

@Kubuntovod · 22.06.2013, 22:11

Попробуйте вот это.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	20.06.2013, 17:18
	Посмотри здесь: Создание папки по названию темы и выгрузка туда прикрепленных файлов к письму 1

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,765
	22.06.2013, 22:11
	Попробуйте вот это. 0