Запаковать файл в .zip архивы (Создание пустого файла архива)

      Using zip As New ZipFile
                zip.AddFile(Application.StartupPath & "\Logs.txt", "")
                zip.Save("Path" & "\Logs.zip") ' при совпадении перезапишет. Возможна потеря данных!!
            End Using

Sub Zip()
        Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace("D:\Должностные инструкции")
        Dim ifs As IO.FileStream = IO.File.Create("d:\архив.zip")
        ifs.Close()
        Dim output As Shell32.Folder = sh.NameSpace("d:\архив.zip")
        output.CopyHere(input.Items, 4)
    End Sub

Sub UnZip()
        Dim sh As New Shell32.Shell()
        IO.Directory.CreateDirectory("d:\новая папка")
        Dim output As Shell32.Folder = sh.NameSpace("d:\новая папка")
        Dim input As Shell32.Folder = sh.NameSpace("d:\архив.zip")
        output.CopyHere(input.Items, 4)
    End Sub

Sub Zip()
 Dim sh As New Shell32.Shell()
 Dim input As Shell32.Folder = sh.NameSpace("D:\Должностные инструкции")
 Dim ifs As IO.FileStream = IO.File.Create("d:\архив.zip")
 ifs.Close()
 Dim output As Shell32.Folder = sh.NameSpace("d:\архив.zip")
 output.CopyHere(input.Items, 4)
 End Sub

Imports System.IO
Imports Shell32
 
Module vbZip
    Private Const FOF_MULTIDESTFILES As Int32 = 1               '
    Private Const FOF_CONFIRMMOUSE As Int32 = 2                 '
    Private Const FOF_SILENT As Int32 = 4                       'Не отображать диалоговое окно процесса.
    Private Const FOF_RENAMEONCOLLISION As Int32 = 8            'Дать файлу новое имя при операции перемещения, копирования или переименовывания, если файл с целевым именем уже существует.
    Private Const FOF_NOCONFIRMATION As Int32 = 16              'Ответ «Да для всех» для любого диалогового окна, которое отобразится.
    Private Const FOF_WANTMAPPINGHANDLE As Int32 = 32           '
    Private Const FOF_ALLOWUNDO As Int32 = 64                   'Сохранить информацию для отмены, если это возможно.
    Private Const FOF_FILESONLY As Int32 = 128                  'Выполнять операции только с файлами, если маска файла (*.*) не указана.
    Private Const FOF_SIMPLEPROGRESS As Int32 = 256             'Показать диалоговое окно процесса, но не показывать имен файлов.
    Private Const FOF_NOCONFIRMMKDIR As Int32 = 512             'Не подтверждать создание новой папки.
    Private Const FOF_NOERRORUI As Int32 = 1024                 'Не отображать пользовательский интерфейс, если произошла ошибка.
    Private Const FOF_NOCOPYSECURITYATTRIBS As Int32 = 2048     'Версия 4.71. Не копировать атрибуты безопасности файлов.
    Private Const FOF_NORECURSION As Int32 = 4096               'Исключить вложеные папки из обработки.
    Private Const FOF_NO_CONNECTED_ELEMENTS As Int32 = 8192     'Версия 5.0. Не копировать файлы связанные в группы. Копировать только указанные файлы.
    Private Const FOF_WANTNUKEWARNING As Int32 = 16384          '
 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Folder - Папка, которую хотим упаковать C:\Test
    ' ZipFile - Путь к архиву в который хотим упаковать C:\Test.zip
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Result -  Результат обработки
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Function Zip(ByVal Folder As String, ByVal ZipFile As String) As Boolean
        Dim Result As Boolean
        Dim ZipHeader As Byte() = New Byte() {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim fs As FileStream = File.Create(ZipFile)
        fs.Write(ZipHeader, 0, ZipHeader.Length)
        fs.Flush()
        fs.Close()
        fs = Nothing
        Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace(Folder)
        Dim output As Shell32.Folder = sh.NameSpace(ZipFile)
        Try
            output.CopyHere(input.Items, FOF_SILENT + FOF_NOERRORUI)
            Result = True
        Catch
            Result = False
        End Try
        Return Result
    End Function
 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Folder - Папка в которую хотим распаковать C:\Test (папка должена существовать)
    ' ZipFile - Путь к архиву из которого всё будет извлечено C:\Test.zip
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Result -  Результат обработки
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Function UnZip(ByVal ZipFile As String, Folder As String) As Boolean
        Dim Result As Boolean
        Dim UnZipFiles() As IO.FileInfo
        Dim Tmp As New IO.DirectoryInfo(Folder)
        Dim Files As New ArrayList
        Dim sh As New Shell32.Shell()
        Dim output As Shell32.Folder = sh.NameSpace(Folder)
        Dim input As Shell32.Folder = sh.NameSpace(ZipFile)
        Try
            output.CopyHere(input.Items, FOF_SILENT + FOF_NOERRORUI)
            Result = True
        Catch
            Result = False
        End Try
        Return Result
    End Function
    
End Module