Копирование файлов - VB (170652)

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

Нужно чтобы несколько файлов копировалось, из указанных в коде пути, в архив который создан программно

null

С копированием решил так:

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
                (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
                ByVal bFailIfExists As Long) As Long
 
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" _
                (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
 
Private Sub Command1_Click()
    Call CopyFile("C:\1.txt", "D:\1.txt", 0)
End Sub

А как архив создать я незнаю...

null

А как сделать чтоб текстовый файл копировался в созданную папку?

Решение задачи: «Копирование файлов»

textual
                            Листинг программы 
                        
                               Shell "pkzip.exe -a Имя_zip_архива *.*"  ' или список файлов или другой шаблон...