vb中用winrar压缩access数据库是遇到问题
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then
MsgBox "请选择文件!"
Exit Sub
End If
Label2.Caption = "正在进行压缩,请稍后......"
fname = Mid(Trim(Text1.Text), InStrRev(Trim(Text1.Text), "\") + 1)
Rarexe = App.Path & "\winrar.exe"
src = App.Path & "\data\项目信息.mdb"
des = "d:\" & fname
FileString = Rarexe & "a-ep" & des & " " & src
Result = Shell(FileString, vbHide)
If Err.Number <> 0 Then
MsgBox "无法压缩数据库:" & Err.Description, vbCritical
Exit Sub
End If
Do
If GetProcessVersion(Result) = 0 Then
Exit Do
End If
Loop
FileCopy des, Trim(Text1.Text)
Kill des
Label2.Caption = "压缩完毕!文件保存在:" & Chr(13) & Trim(Text1.Text)
End Sub
我在用这个代码运行的时候,提示说子程序或函数未定义, 是GetProcessVersion这个的问题。为什么会有这样的错误啊?我的代码是按照课本上写的,我也不知道GetProcessVersion是什么。