Как запускать файлы с разными расшырениями?

[Ramzes]

Еще один вопрос ребром...
Как запустить *.exe знают многие (Даже дураки)

Как открыть Ie Тоже...

А как например открыть *.txt с помощью блокнота, *.xls спощю Excel'я...
И как запускать прогу через *.lnk

Зарание благодарю...

[corgi]

поищи по форуму ShellExecute или посмотри api-guide

[v-adix]

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 Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Function startdoc(DocName As String)
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
startdoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", 1)
End Function

Private Sub Command1_Click()
Dim r As Long
'укажите путь к вашему файлу
r = startdoc("D:\1.xls")
End Sub

[Vitaly1]

Ну вот тебе пример трех типов расширения

Код: Выделить всё

Sub OpenFile(Name1)
Dim i As Long
Dim application as variant

‘If  exe File
If InStr(UCase(name1), "EXE") <> 0 Then
i = Shell(name1, vbNormalFocus)
  Exit Sub
End If

'If  Excel.application
If InStr(UCase(name1), "XLS") <> 0 Or _
InStr(UCase(name1), "XLW") <> 0 Or _
InStr(UCase(name1), "XLA") <> 0 Then
Set Application = CreateObject("Excel.application")
With Application
.workbooks.Open name1
.Visible = True
.WindowState = 3
.workbooks(1).Activate
end with

'If  Word.application
ElseIf InStr(UCase(name1), "DOC") <> 0 Or _
InStr(UCase(name1), "RTF") <> 0 Or _
InStr(UCase(name1), "TXT") <> 0 Then
Set Application = CreateObject("Word.application")
With Application
.Documents.Open Name1
.Visible = True
.WindowState = 1
.Documents(1).Activate
End With
Else
MsgBox "File can not open" & Name1
Exit Sub
End If

Application = nothing
End Sub

[Ramzes]

спасибо, но как открывать екзешники через *.lnk?

[Vitaly1]

что бы узнать содержимое ярлыка зайди сюда:
http://bbs.vbstreets.ru/viewtopic.php?t ... sc&start=0

А затем, найди сообщение Красавицы начинающееся со слов:

Vitaly1
Вот нашла для вас более удобный, найденный на одном из ресурсов по кодингу на VB, способ:

[corgi]

а можно и просто в shellexecute подсунуть lnc файл и он сам разберется