Public Function IngAC_FILE_ZIP_COMPRESSIONE(ByVal File_Origine As String, ByVal File_Destinazione As String) As Boolean
        'inizialmente la funzione restituisce false        
        IngAC_FILE_ZIP_COMPRESSIONE = False
        'controlla se il file di partenza esiste
        If File.Exists(File_Origine) = False Then
            Return False ' restituisce esito negativo ed esce
        End If
        ' creazione degli stream
        Dim Buffer As Byte() = Nothing
        Dim Stream_F_Origine As FileStream = Nothing
        Dim Stream_F_Destinazione As FileStream = Nothing
        Dim FileZip As GZipStream = Nothing
 
        Try
            ' Leggo lo stream dati del file di origine
            Stream_F_Origine = New FileStream(File_Origine, FileMode.Open, FileAccess.Read, FileShare.Read)
            ' metto nel buffer i byte del file di origine
            Buffer = New Byte(Stream_F_Origine.Length) {}
            Dim Dimensione As Integer = Stream_F_Origine.Read(Buffer, 0, Buffer.Length)
            'apro un stream per il file di destinazione(zip)
            Stream_F_Destinazione = New FileStream(File_Destinazione, FileMode.OpenOrCreate, FileAccess.Write)
            ' inizializzo il file compresso
            FileZip = New GZipStream(Stream_F_Destinazione, CompressionMode.Compress, True)
            'Scrivo nel file compresso i dati letti precedentemente messi in buffer
            FileZip.Write(Buffer, 0, Buffer.Length)
            MsgBox("Operazione terminata.")
        Catch ex As ApplicationException
            MsgBox("Errore: " & ex.Message)
            Return False
        Finally
            'libero la memoria
            If Not (Stream_F_Origine Is Nothing) Then
                Stream_F_Origine.Close()
            End If
            If Not (FileZip Is Nothing) Then
                FileZip.Close()
            End If
            If Not (Stream_F_Destinazione Is Nothing) Then
                Stream_F_Destinazione.Close()
            End If
            IngAC_FILE_ZIP_COMPRESSIONE = True
        End Try
    End Function