Dim fsOut As FileStream = File.OpenWrite(PercorsoFileZip)
            Dim zipStream As New ZipOutputStream(fsOut)

            zipStream.SetLevel(8)       
            zipStream.Password = xCompressione.PasswordZipFile 

           Dim folderOffset As Integer = PercorsoFileDaAggiungere.Length + (If(PercorsoFileDaAggiungere.EndsWith("\"), 1, 0))

            Dim fi As New FileInfo(PercorsoFileDaAggiungere)

            Dim entryName As String = PercorsoFileDaAggiungere 
                entryName = ZipEntry.CleanName(entryName)       
                Dim newEntry As New ZipEntry(entryName)
                newEntry.DateTime = fi.LastWriteTime            
                         
                newEntry.Size = fi.Length

            zipStream.PutNextEntry(newEntry)

                Dim buffer As Byte() = New Byte(4095) {}
            Using streamReader As FileStream = File.OpenRead(PercorsoFileDaAggiungere)
                StreamUtils.Copy(streamReader, zipStream, buffer)
            End Using
                zipStream.CloseEntry()

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