Сообщество Чайников

Вопрос

Как запустить файл (к примеру doc,xls,rar…), чтоб при этом открывалось связанное с ним приложение (WINWORD.EXE, EXCEL.EXE, WINRAR.EXE) и открывало соответствующий с ним файл (doc,xls,rar…)?

Ответ

Ты можешь использовать два способа:

1. 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 VbAppWinStyle) As Long

Dim FileName As String
FileName = "C:\windows\explorer.exe" 'Ваш файл
X = ShellExecute(Me.hwnd, "open", FileName, "", "", vbNormalFocus)

2. (уникальный):
Dim FileName As String
FileName = "C:\windows\explorer.exe" 'Ваш файл
X=Shell ("rundll32.exe url.dll,FileProtocolHandler" & " " & FileName, vbMaximizedFocus)

Igoryk