ACCESS ShellExecute 打开文件

推荐资料自学网址:http://www./study.asp?vip=10241777 

ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。

 

Dim lr As Long
If IsNull(Me.路径) = False Then
    lr = ShellExecute(Me.hwnd, "open", Me.路径, "", "", SW_SHOW)
    If lr < 0 Or lr > 32 Then
       '打开文件成功
    Else
        MsgBox "您所指定的档案不存在！", vbInformation
    End If
Else
    MsgBox ("--未连接资料!--")
End If