Программирование
Веб программирование

Работа с .ZIP [VB.NET]

 
 

 Здравствуйте! В данной статье я расскажу Вам как разархивировать архив расширения .zip. Для этого на форме нам понадобиться:

  • TextBox - 2шт для вставки туда пути к архиву и папки для разархивации;
  • Button - 1шт для выполнения операции.

Добавляем данный код на кнопку событие клик (два клика по кнопке): 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Разархивация
Dim sh As New Shell32.Shell()
If Dir(TextBox2.text & "") = vbNullString Then My.Computer.FileSystem.CreateDirectory(TextBox2.text & "") ' если папка не существует то её создаём
If Dir(TextBox1.text) = vbNullString Then ' Если файл не существует
MsgBox("Неверно указан файл zip.")
Exit Sub
End If
Dim output As Shell32.Folder = sh.NameSpace(TextBox2.text & "")
Dim input As Shell32.Folder = sh.NameSpace(TextBox1.text & "")
output.CopyHere(input.Items, 16)
MsgBox("Готово.")
End Sub
  • TextBox1.text - задаёт путь к архиву. Например  C:1.zip
  • TextBox2.text - задаёт папку куда разархивировать. Например C:1

 Это не всё! В коде фигурирует библиотека Shell32. Эта библиотека есть в windows изначально. С помощью неё Вы можете открывать архивы .zip без WinRar. Нам нужно её присоединить к нашему проекту. Чтобы добавить жмём правой кнопкой по названию нашего проекта в Обозреватель решений и там выбираем Добавить ссылку. В появившемся окне, во вкладке COM ищем Microsoft Shell Controls, а если её нету в списке, то через обзор добавляем сами(путь C:Windowssystem32). Вот собственно и всё. Удачи в программировнии. 


Есть вопросы? Спроси на нашем форуме!!
Кулхацкер [16.11.2012 08:28]

Перенесено в VB.NET



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.