[Vb.Net] Aggiungere file\Cartella a file Zip con SharpZipLib

[mardok30]

Sto usando la DLL SharpZipLib e dovrei poter aggiungere file\cartelle ad un file zip esistente.
Per la creazione del file zip vuoto uso:

  Dim fsOut As FileStream = File.Create(PercorsoDestinazione)
            Dim zipStream As New ZipOutputStream(fsOut)

            zipStream.SetLevel(Compressione)      
            zipStream.IsStreamOwner = True
            zipStream.Finish()
            zipStream.Flush()
            zipStream.Close()

Avete un esempio su come inserire file e\o cartelle in questo file zip appena creato?
Mi servirebbero due funzioni
Una che mi aggiunge un semplice file
Un'altra che mi aggiunge la cartella che gli passo con relative sottocartelle e file in esse contenuti.
Grazie

[Talion]

Per aggiungere un file dovrebbe essere all'incirca cosi:

In normalByte ci va l'array di byte del file da zippare. Una volta creato lo zipStream lo salvi su file. Per le directory mi sembra ci sia la propietà IsDirectory e se ricordo bene devi fare una nuova entry per ogni directory


[/code]


Dim fsOut As FileStream = File.Create(PercorsoDestinazione)
Dim zipStream As New ZipOutputStream(fsOut)

zipStream.SetLevel(Compressione)
zipStream.IsStreamOwner = True

Dim normalBytes AS byte()


Dim entry As ZipEntry = new ZipEntry(zipName);
entry.DateTime = DateTime.Now;
zipStream.PutNextEntry(entry);
zipStream.Write(normalBytes, 0, normalBytes.Length);
zipStream.CloseEntry();


zipStream.Finish()
zipStream.Flush()
zipStream.Close()



[/code]