Распаковать архив

11.11.2016, 10:34. Показов 4101. Ответов 0

Метки нет (Все метки)

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

Добрий день!

есть макрос для распаковки архивов. первий архив распаковывается нормально,
а вот а второй архив(он затирает первий архив так как он с таким же именем,
т.е в папке новий архив и файли с первого архива)
не распаковывает,скрипт перебирает все файли после распаковке первого,
а архив не находит
прошу подправить скрипт

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub unzip()
    iPath = "D:\Temp\08.11.2016"
    MyName = Dir(iPath, vbNormal)
    MyName = iPath & MyName
Do While MyName <> ""
If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    WinRarApp$ = "D:\Program Files\winRAR\winRAR.exe e"
        iArhivName$ = MyName
    adr$ = WinRarApp$ & " """ & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
End If
    MyName = Dir()
Loop
End Sub

Добавлено через 1 час 35 минут
может кто-то подправить мой макрос?

Добавлено через 17 часов 14 минут
Сам задал вопрос сам и отвечаю
окончательний код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub unzip()
Dim iPath, strMaskSearch, MyName As String
iPath = "D:\Temp\08.11.2016"
strMaskSearch = "*.zip"
 
 If Len(Dir(iPath)) = 0 Then
               MkDir iPath
        End If
 
MyName = Dir(iPath & strMaskSearch)
 
Do While MyName <> ""
    If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    WinRarApp$ = "D:\Program Files\winRAR\winRAR.exe e"
        iArhivName$ = iPath & MyName
    adr$ = WinRarApp$ & " """ & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
    End If
    
    MyName = Dir
Loop
End Sub

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

11.11.2016, 10:34

Ответы с готовыми решениями:

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

Как из VBA можно распаковать архив rar?
Как из VBA можно распаковать архив rar?

Упаковка в архив (с использованием пароля на архив) и отправка по почте
Помогите с написанием макроса, который будет упаковывать книгу в архив (книга по-умолчанию сохраняется в одну и ту же директорию),...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

11.11.2016, 10:34

Помогаю со студенческими работами здесь

Как распаковать ZIP-файл в 7z?
'При помощи VBA WinRAR распаковывает архив в папку … q = Адрес_сохранения_файла 'путь к каталогу, то есть к папке, в конце пути для...

Создать архив 7z
добрий день! прошу помочь подправить макрос которий должен архивировать папку work_mmdd которая лежит в D:\Temp в архив с именем...

Распаковать zip архив
Нужно распаковать все файлы из zip архива (или tar.gz). Подключил zlib. zip архив находится рядом с .exe файлом приложения. Не могу...

Программно распаковать архив
Подскажите как программно распаковать архив rar в скрытом режиме и с заменой файлов(если такие существуют) Делаю так: var...

Распаковать архив из памяти
В памяти хранится архив (как массив байтов). Нужно никуда не сохраняя его, разархивировать. Может с MemoryStream потанцевать? Тип архива...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
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

Наверх