Access调用打开已关联的外部文件

Grant

1. Option Compare Database
   
2. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
   
3.      (ByVal hwnd As Long, ByVal lpszOp As String, _
   
4.      ByVal lpszFile As String, ByVal lpszParams As String, _
   
5.      ByVal LpszDir As String, ByVal FsShowCmd As Long) _
   
6.      As Long
   
7.     Const SW_SHOW = 1
   
8.      
   
9. Private Sub Enter_Click()
   
10.     ShellExecute 0, "Open", "c:\aa.doc", "", "", SW_SHOW
    
11. End Sub

复制代码

用它来解决一切已关联的文件open问题.

zhuyiwen

不错的 API 调用，最近我也用过，蛮爽的，呵呵