ho scritto questo codice per creare un file zip.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim s As New ZipOutputStream(IO.File.Create("c:\ciao.zip"))
Dim fs As New filestream(file.openread("c:\ciao.txt"))
Dim buffer As New Byte(fs.lenght)
fs.Read(Buffer, 0, Buffer.Length)
Dim myEntry As New ZipEntry("c:\ciao.txt")
s.PutNextEntry(myEntry)
s.Write(Buffer, 0, Buffer.Length)
s.CloseEntry()
fs.Close()
End Sub
naturalmente all'inizio ho inserito Imports ICSharpCode.SharpZipLib.Zip
però ho un problema, mi segna errore nella dichiarazione filestream.
anche se provo a dichiarare dim fs as filestream .
per il resto dovrebbe andare, è un esempio di prova che sto facendo...
se notate altri errori ditemi pure...a me segan solo quello...
aiutatemi se potete...grazie! e buone feste!!
Rispondi quotando
