[help] Архивация файлов - VB

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

Приветствую всех! Тут у меня такая проблемка. Нужно создать архив, предварительно добавив в него несколько файлов. Ниже приведен код, который добавит только 3 текстовый файла. Тут всё понятно... Но у меня стоит немного другая задача. Список файлов находится в List1. Как мне быть в таком случае, если фалов в Листе может быть больше 3-х ???
Private Sub Command1_Click()
zArgc = 3 ' Количество элементов массива
zZipFileName = "C:\arhive.zip"
zZipFileNames.zFiles(0) = "C:\file0.txt"
zZipFileNames.zFiles(1) = "C:\file1.txt"
zZipFileNames.zFiles(2) = "C:\file2.txt"
End Sub

Решение задачи: «[help] Архивация файлов»

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

                            <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">to</font> List1.ListCount - <font color="darkblue"><b>1</b></font>
      zZipFileNames.zFiles(i) = List1.List(i)
<font color="blue">Next</font> i
                        