باز کردن یک فایل

[mohrdmk]

سلام.
میخواستم بدونم چجوری یک فایل ( که میتونه فایل پاور پوینت - pptx - ppsx یا هر فایل دیگه ای باشه ) رو در Vb با زدن یک کلیک باز کنم؟ یعنی اون فایل با نرم افزاری که به طوری پیش فرض قراره باز بشه ، اجرا بشه ... شبیه حالتی که در ویندوز روی یکی از فایل ها Double Click می کنیم ...
راستی لطفا یک نمونه هم ضمیمه کنید اگر زحمتی نیست ..
خیلی ممنون ..

[unit001]

سلام.

اگه جستجو می کردید پیدا می شد.


Private Const SW_SHOWNORMAL As Long = 1
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function ShellExecuteA Lib "shell32.dll" (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 Sub OpenFile(ByVal File As String, Optional ByVal Operation As String)
Dim Directory As String
Dim Pos As Long
Directory = Left(File, InStrRev(File, "\"))
ShellExecuteA GetDesktopWindow, IIf(Len(Operation) = 0, vbNullString, Operation) _
, File, vbNullString, Directory, SW_SHOWNORMAL
End Sub