' Estrae il contenuto di un file compresso
        Public Function ExtractSgaFile(ByVal _dstFileDest As String, ByVal _dstFilePathWithName As String)

            Try
                Dim p As New ICSharpCode.SharpZipLib.Zip.FastZip()
                p.ExtractZip(_dstFilePathWithName, _dstFileDest, "")
                Return True
            Catch
                msgbox(err.description)
                Return False
            End Try

        End Function