Открытие файлов

[FSO]

Вопрос в следующем:
Допустим есть папка с документами (*.doc, *.rtf, *.xls, *.pps). На форме есть filelistbox. Как можно осуществить открытие файлов в программе. т.е. *.doc - Word, *.xls - Excel и т.д.

[BV]

ShellExecute

[VERITAS]

Сделай функцию, которая опеределяет расширение файла, а затем уже из известного списка: doc - открываем в Word, txt в блокноте. соответственно открывает каждый файл как надо.

А насчет функции ShellExecute, если конечно не знаешь, используется она так:

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

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As _
String, ByVal pParameters As String, ByVal lpDirectory As String, ByVal _
nShowCmd As Long) As Long

Public Const SW_SHOWDEFAULT = 10

Public Const BIF_RETURNONLYFSDIRS = 1
Public Const MAX_PATH = 260
Public Const HH_HELP_CONTEXT = &HF

' пример
'ShellExecute Me.hwnd, "open", "Меня откройте.exe", "",  "C:\", _
'SW_SHOWDEFAULT

[FSO]

Спасибо всем, но решил сделать по другому.....
If File1.Pattern = "*.rtf*" Then
frmRTF.Show
frmRTF.Caption = "Просмотр документа " & File1.FileName & " (Только для чтения)"
frmRTF.RichTextBox1.FileName = File1.Path & "\" & File1.FileName

Правда примитивно... но сойдет

Но появились еще 2 вопроса:
1) Можно ли скопировать картинки из word программно, а то в richtextbox они не отображаются.
2) Какой компонент позволяет открывать демонстрационные презентации (*.pps)