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

Формулировка задачи:

Здравствуйте. Нужно архивировать файлы с каталога (запаковать) Как заорхивировать я знаю (в FAQ есть ) Проблема в том, что файл с расширением .zip должен быть на диске. В этом и проблема, т.к.: 1) Если его создать как-нибудь так File.Create("D:\архив.zip") то это не архив по сути и программа ругается (битый файл) 2) Пустой архив без файла даже вручную создать не получится, в нем обязательно должен лежать хоть один файл, а он мне не к чему Как быть? В поиске форума вопросы хоть и были такие но никто ответ не дал на них. Вот сам код, который сейчас использую:

                    Листинг программы
                
Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace("D:\Temp")
        Dim output As Shell32.Folder = sh.NameSpace("D:\Архив.zip")  'этот файл как пустой создать чтобы его можно было использовать (не битый)
        output.CopyHere(input.Items, 4)

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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