开发手记（十）——在VB中解压缩ACCESS数据库文件（mi6236）[1]

开发手记（十）——在VB中解压缩ACCESS数据库文件

－为保证文章完整性，谢绝对某篇而非全部手记的转载（mi6236）

'压缩文件函数，dataS为源文件，dataz为目标文件，传出为一个布尔值

Private Function DataZip(ByVal Datas As String, ByVal Dataz As String) As Boolean

On Error GoTo Compact_Error

    Dim JRO As JRO.JetEngine

    Set JRO = New JRO.JetEngine

    Dim fso As New FileSystemObject

    If fso.FileExists(Dataz) = True Then

        If MsgBox("此压缩文件已存在是否将其覆盖？", vbYesNo + vbQuestion, "压缩工程数据文件") = vbYes Then

            Kill Dataz

        Else

            Exit Function

        End If

    End If

    '压缩工程文件

    JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datas, _

    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dataz & ";Jet OLEDB:Engine Type=5"

    DataZip = True