Архивация папок в visual basic - VB

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

Доброе время суток. Нужно в Visual Basic за архивировать папки из указанного места в zip или rar название архива вводится пользователем как и место сохранения архива. Помогите пожалуйста. Заранее спасибо.

Решение задачи: «Архивация папок в visual basic»

textual
                            Листинг программы 
                        

                            Option Explicit
Sub Main()
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim Path As String
 
Set ts = fso.OpenTextFile(Path & "\архив.zip", ForWriting, True) 'создать файл
ts.Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar) 'превратить его в zip
ts.Close 'закрыть его
Set fso = Nothing
Set ts = Nothing
 
Dim myApp As New Shell
myApp.NameSpace(Path & "\архив.zip").CopyHere myApp.NameSpace(Path & "\") 'упаковать
Set myApp = Nothing
End Sub
                        