|
|
|
Главная  MS ACCESS Запуск программы, папки или документа |
|
Запуск программы, папки или документа |
|
|
|
Автор Dev Ashish
|
|
30.07.2001 г. |
Функция, которая запускает программы, папки или документы
Option Compare Database
Option Explicit
Private Declare Function apiShellExecute 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
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 2 'Open Maximized
Public Const WIN_MIN = 3 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
'***************Usage Examples***********************
'Open a folder:
?fHandleFile("C:TEMP",WIN_NORMAL)
'Call Email app:
?fHandleFile("mailto:
Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
",WIN_NORMAL)
'Open URL:
?fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
?fHandleFile("C:TEMPTestThis",Win_Normal)
'Start Access instance:
?fHandleFile("I:mdbsCodeNStuff.mdb", Win_NORMAL)
'****************************************************
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute(hWndAccessApp, vbNullString, stFile, vbNullString, vbNullString, lShowHow)
If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC 'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND
stRet = "Error: File Not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND
stRet = "Error: Path Not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else
End Select
End If
fHandleFile = lRet & IIf(stRet = "", vbNullString, ", " & stRet)
End Function
|
Просмотров: 6153
 Ваш коментарий будет первым | |
|
|
| Реклама на сайте
|
|
|
|
