Comprimir los archivos de una carpeta por SEPARADO.

[davidalonsso05]

No me aparece la opcion de EnumarateFiles.

Logre hacerlo de la siguiente forma:

Código vb:

Public Sub Comprimir()
 
        For Each archivo As String In My.Computer.FileSystem.GetFiles(Me.TextBox1.Text, "*", FileIO.SearchOption.SearchAllSubDirectories)
            Using zip As ZipFile = New ZipFile()
                zip.AddFile(archivo, "")
                zip.Save(Path.Combine(Me.TextBox1.Text, Path.GetFileNameWithoutExtension(archivo) + ".zip"))
            End Using
        Next
 
    End Sub
 

Y me comprime de manera exitosa los archivos por separado.

Sin embargo, si la carpeta cuenta con subcarpetas quisiera preguntarle si desea comprimir las subcarpetas pero aun no encuentro la solucion...
Confirmo utilizo Vb 2005