Как получить список файлов в ZIP или в RAR?

@istomin_an62 · Регистрация: 20.07.2020

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

Вынесено из темы Автоматическая распаковка архивов в указанную директорию

Здравствуйте.
А как-бы получить список файлов в зипе или в раре? Искал в интернете, но ничего внятного не не нашёл. Я, конечно, могу архив разрарить (или разиповать) в какую-то директорию и потом загнать полученный список в listbox, но как мне кажется, это не правильно.

Ещё вопрос. Файлы, начинающая с тире (например "-файл1") при удалении не работают, пишет "не известный ключ (или команда)",при копировании файла вообще ничего не происходит. & """ """ & ничего не даёт. Как-бы удалять или копировать подобные файлы? .

@istomin_an62 · 18.03.2023, 16:47 **[ТС]**

пишет, что:

Кликните здесь для просмотра всего текста

Как получить список файлов в ZIP или в RAR?

@OwenGlendower · 18.03.2023, 16:58

istomin_an62, конкретно для этих примеров работает вариант с указанием кодировки. Замените эту строку

VB.NET
41
            Using zipArc As New ZipArchive(stream, ZipArchiveMode.Read)

на

VB.NET
41
            Using zipArc As New ZipArchive(stream, ZipArchiveMode.Read, False, Encoding.GetEncoding(866))

И, конечно, сделайте вывод в ListBox вместо вывода в консоль.

Данный код правильно работает с названиями на английском и русском. Если других языков не будет, то значит всё в порядке.

Добавлено через 1 минуту

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

пишет, что:

Для таких вещей есть специальная тема - https://www.cyberforum.ru/abou... 06915.html

@istomin_an62 · 18.03.2023, 17:22 **[ТС]**

Большое спасибо. Теперь всё работает. А, для справки, в первом случае не подскажете строчку для смены кодировки?

@OwenGlendower · 18.03.2023, 17:25

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

А, для справки, в первом случае не подскажете строчку для смены кодировки?

Первый случай не поддерживает указание кодировки, но это не важно т.к. классы все равно одни и те же. И вообще можно скрыть эти две строки за методом чтобы упростить код

VB.NET
1
2
        Using stream As FileStream = File.OpenRead(путь1 + имя1)
            Using zipArc As New ZipArchive(stream, ZipArchiveMode.Read, False, Encoding.GetEncoding(866))

@istomin_an62 · 18.03.2023, 17:39 **[ТС]**

Что-то не понял. А, впрочем, это неважно, и так всё прекрасно работает, благодаря вашему коду. В первом случае буду разбираться.

@OwenGlendower · 18.03.2023, 17:53

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

Что-то не понял.

Я имел в виду что можно написать метод принимающий путь к архиву и возвращающий ZipArchive с нужной кодировкой. Чтобы писать только одну строку вместо двух.

Добавлено через 22 секунды

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

В первом случае буду разбираться.

С чем именно?

@istomin_an62 · 18.03.2023, 18:35 **[ТС]**

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

С чем именно?

С кодировкой

@OwenGlendower · 18.03.2023, 18:41

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

С кодировкой

Я же сказал что ZipFile.OpenRead не поддерживает указание кодировки или вы что-то другое имеете в виду?

@istomin_an62 · 18.03.2023, 18:51 **[ТС]**

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

Я же сказал что ZipFile.OpenRead не поддерживает указание кодировки

Ясно. Ну, тады, ладно.

Добавлено через 4 минуты
OwenGlendower, Хотя, в первом случае русский алфавит так и будет показываться кракозябрами? Странно это...

@OwenGlendower · 18.03.2023, 18:55

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

Странно это...

Ничего странного. Первый метод ведет себя точно так же как второй когда мы не указывали кодировку.

@istomin_an62 · 18.03.2023, 18:58 **[ТС]**

OwenGlendower, Понятно.

@istomin_an62 · 22.03.2023, 11:15 **[ТС]**

На второй вопрос я сам себе ответил:
"Ключ -- — прервать дальнейший поиск ключей в командной строке"
Т.е., при удалении файла, начинающееся "-", например "-файл1", надо добавлять в конце ключ "--":

VB.NET
1
Dim Rar As String = "c:\Program Files\WinRAR\WinRAR.exe" & " D  -dr -- "

@OwenGlendower · 22.03.2023, 12:06

istomin_an62, к вашему сведению удалить файл из архива можно кодом. Внешний архиватор использовать необязательно.

VB.NET
1
2
3
4
5
6
7
8
Using stream As FileStream = New FileStream("file.zip", FileMode.Open, FileAccess.ReadWrite)
    Using zipArc As New ZipArchive(stream, ZipArchiveMode.Update)
        Dim zipEntryToDelete As ZipArchiveEntry = zipArc.GetEntry("-файл1")
        If zipEntryToDelete IsNot Nothing Then
            zipEntryToDelete.Delete()
        End If
    End Using
End Using

@istomin_an62 · 22.03.2023, 13:55 **[ТС]**

OwenGlendower, Речь идет не только об удалении файла, но об его копировании и переносе. В моём случае проще, правда обязательно установить rar и его подкорректировать, но, опять-же, в моём случае, rar всегда установлен.

@OwenGlendower · 22.03.2023, 16:18

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

в моём случае, rar всегда установлен.

Окей. Будем считать тогда что пример приведен для расширения кругозора

@istomin_an62 · 23.03.2023, 01:38 **[ТС]**

OwenGlendower, Во всяком случае, спасибо.

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146

	Как получить список файлов в ZIP или в RAR? 17.03.2023, 16:16. Показов 4490. Ответов 35 Метки rar, zip, архив, архивы (Все метки) Вынесено из темы Автоматическая распаковка архивов в указанную директорию Здравствуйте. А как-бы получить список файлов в зипе или в раре? Искал в интернете, но ничего внятного не не нашёл. Я, конечно, могу архив разрарить (или разиповать) в какую-то директорию и потом загнать полученный список в listbox, но как мне кажется, это не правильно. Ещё вопрос. Файлы, начинающая с тире (например "-файл1") при удалении не работают, пишет "не известный ключ (или команда)",при копировании файла вообще ничего не происходит. & """ """ & ничего не даёт. Как-бы удалять или копировать подобные файлы? . 0

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146
	18.03.2023, 16:47 [ТС]
	пишет, что: Кликните здесь для просмотра всего текста 0

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146
	18.03.2023, 17:22 [ТС]
	Большое спасибо. Теперь всё работает. А, для справки, в первом случае не подскажете строчку для смены кодировки? 0

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146
	18.03.2023, 17:39 [ТС]
	Что-то не понял. А, впрочем, это неважно, и так всё прекрасно работает, благодаря вашему коду. В первом случае буду разбираться. 0

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146
	18.03.2023, 18:58 [ТС]
	OwenGlendower, Понятно. 0

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146
	22.03.2023, 13:55 [ТС]
	OwenGlendower, Речь идет не только об удалении файла, но об его копировании и переносе. В моём случае проще, правда обязательно установить rar и его подкорректировать, но, опять-же, в моём случае, rar всегда установлен. 0

@istomin_an62 5 / 5 / 0 Регистрация: 20.07.2020 Сообщений: 146
	23.03.2023, 01:38 [ТС]
	OwenGlendower, Во всяком случае, спасибо. 0