Форумы HiProg.com - MS ACCESS, VBA, VB

ник: SergeyKV
еще есть такой вариант, он попроще может стоить на него обратить внимание ?

Public 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 Public Const SW_SHOWMAXIMIZED = 1 Public Const AttachmentsPath = "i:\attachments" Public Sub RunFile(FileName As String) Dim l As Long Dim st As String st = FileName l = ShellExecute(0, "open", st, "", "", SW_SHOWMAXIMIZED) End Sub