Asignar nombre a archivo comprimido.

[davidalonsso05]

de acuerdo, ya pude seleccionar una carpeta con el siguiente codigo:

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
 
            With FolderBrowserDialog1
                .Reset()
                .Description = " Seleccionar una carpeta "
                .SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
                .ShowNewFolderButton = False
                Dim ret As DialogResult = .ShowDialog
                If ret = Windows.Forms.DialogResult.OK Then
                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
                    TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString()
                    MsgBox("Total de archivos: " & CStr(nFiles.Count), _
                                            MsgBoxStyle.Information)
                End If
                .Dispose()
            End With
        Catch oe As Exception
            MsgBox(oe.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 

Pero al momento de comprimir asi:

Código vb:

Public Sub Comprimir()
        Try
            Using zip As New ZipFile()
                zip.AddDirectory(Me.TextBox1.Text)
 
                zip.Save(System.IO.Path.Combine(System.IO.Path.GetDirectoryName(Me.TextBox1.Text), System.IO.Path.GetFileNameWithoutExtension(Me.TextBox1.Text) + ".zip"))
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
 
    End Sub
 

Me comprime toda la carpeta y dentro vienen los archivos.

Lo que quiero es que por ejemplo, yo seleccione una carpeta, me comprima todos los archivos que vienen dentro de ella PERO cada archivo que viene dentro lo comprima por separado, que aparescan por decir, si vienen 5 documentos, que aparezcan 5 archivos .zip por separada, cada uno con un documento...
Saludos buen dia!