[求助]如何调用ACCESS的安装程序?

好学

我这样调用ACCESS的安装程序为什么不行呢?请问应该如何才行呢?

           Dim stAppName, a As String
               a = CurrentProject.path
               stAppName = a & "\ACCESSRT.MSI "
               Call Shell(stAppName, 1)

[此贴子已经被作者于2007-2-26 0:50:54编辑过]

yqi

shell FileName

好学

不行啊,是这样吗?

Dim stAppName, a As String
a = CurrentProject.path
stAppName = a & "\ACCESSRT.MSI "

Shell stAppName

好学

请高手们指点[em01][em01][em01]

andymark

CurrentProject.path  只是ACCESS里所指的当前路径

在ACCESS里调用可以,其他的就不行了

好学

我是在VB调用的,但是不行,请版主指点

    Dim stAppName, a As String
     a = App.Path
     stAppName = a & "\ACCESSRT.MSI "
     Call Shell(stAppName, 1)

好学

提示错误是:

andymark

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
Dim StrPathName As String
StrPathName = "C:\WINDOWS\system32\"
Call ShellExecute(hwnd, "Open", "sasetup.msi", "", StrPathName, 1)
End Sub

好学

还是版主厉害!谢谢andymark版主!