Ha habido un pequeño error, porque has editado la pregunta y yo estaba leyendo lo que habías escrito antes.
Rebobinemos.
Como te dije en la respuesta de ayer, tienes que enumerar los ficheros e ir comprimiendolos uno a uno.
Código vb:
Ver originalDim txtFiles = Directory.EnumerateFiles(sourceDirectory, "*", SearchOption.AllDirectories)
For Each currentFile As String In txtFiles
Comprimir(Path.GetFileNameWithoutExtension(currentFile))
Next
Private Sub Comprimir(Dim file as String)
Using zip As ZipFile = New ZipFile()
zip.AddFile(file, "")
zip.Save(file & ".zip")
End Using
End Sub
No me has dicho donde quieres guardar los archivos comprimidos, si en el mismo lugar que el archivo original o en otra ruta. Para cambiar eso, sólo tendrías que jugar con la ruta de guardado.
Un saludo.