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是什么。
[解决办法]
GetProcessVersion？
[解决办法]
Declare Function GetProcessVersion Lib "kernel32.dll" (ByVal ProcessId As Long) As Long
[解决办法]
就是你未定义的 GetProcessVersion 函数
