VBNet - Форум - Проверить наличие файла в архиве zip

Вопрос: Проверить наличие файла в архиве zip Добавлено: 30.09.08 15:04

Автор вопроса: Юра

Всем привет! Полдня бьюсь над проблеммой. Необходимо проверить программно наличие файла с именем допустим rrr.xls в архиве zip/ Т.Е. не открывать архив (это занимает время и здесь програмно реализовать просто
Shell "7z ....") а просто проверить если файл с указанным именем в архиве или нет и по результатам проверки работать дальше. Как правильно составить синтаксис.
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #1	Добавлено: 30.09.08 17:12
	Я вот такое выдумал. Вроде на всех зипах работает. Private Sub Form_Load() Me.Caption = IsFileInZIP("d:\RichEdit.zip", "", "mRichEdit.bas", False) End Sub ' ZIPFile - имя zip-файла ' PathToFileInZip - путь к файлу внутри зипа без завершающего слеша, _ если файл лежит в корне, то оставить пустым ("") ' FileInZip - имя файла, наличие которого мы проверяем ' IgnorePath - игнорировать путь и искать во всем зипе Function IsFileInZIP(ByVal ZIPFile As String, ByVal PathToFileInZip As String, ByVal FileInZip As String, Optional ByVal IgnorePath As Boolean = True) As Boolean Dim strData As String Dim FF As Integer Dim Search As String IsFileInZIP = False If Dir$(ZIPFile) = "" Then Exit Function FF = FreeFile Open ZIPFile For Binary As #FF strData = Space(LOF(FF)) Get #FF, , strData Close Search = String$(3, Chr$(0)) & FileInZip If IgnorePath Then Search = FileInZip If PathToFileInZip <> "" Then Search = String$(3, Chr$(0)) & PathToFileInZip & "/" & FileInZip If InStr(1, strData, Search, vbTextCompare) > 0 Then IsFileInZIP = True End Function Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #2	Добавлено: 01.10.08 11:33
	7z имеет открытый исходный код. исходники 7z и флаг тебе в руки. Ответить

Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #3	Добавлено: 01.10.08 16:22
	Имхо, такие сложности в данном случае ни к чему... Ответить

Номер ответа: 4 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #4	Добавлено: 01.10.08 20:44
	ну тогда просто надо использовать командную строку, там что-нибудь в тему должно быть, либо посмотреть код wcx-плагина 7z для Total Commander Ответить

Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #5	Добавлено: 01.10.08 21:52
	Мой код не понравился?) Ответить

Номер ответа: 6 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #6	Добавлено: 02.10.08 15:17
	Отличный пример по ZIPFile! Но так ты же не в тему пример дал, т.к. автор судя по тексту с 7z работает.. Ответить

Номер ответа: 7 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #7	Добавлено: 02.10.08 16:56
	Юра пишет: Необходимо проверить программно наличие файла с именем допустим rrr.xls в архиве zip Ответить

Страница: 1 |