how to open a file with it's program ?

[djaypee]

hi,

how do i open a file that i build in my VB program with it's corresponding program, just by clicking on a button ? example :

open xxx.htm with internet explorer
open xxx.doc with word
open xxx.txt with notepad
...

i use windows 98 and vb 6.0

thanx a lot,

djaypee

 

[strongm]

Do a search in this forum for ShellExecute. You should find plenty of examples of how this is done.

 

[sunaj]

Hi,

See thread222-177509 to find the path of the program to open the file with. Then use shell or shellexecute like strongm suggests to open the document.
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[1127]

Public Function ShellDoc(ByVal strFile As String, frm As Form) As Long
Dim lngRet As Long
Dim strDir As String
Dim strFileExt As String
Dim strFullPath As String

lngRet = ShellExecute(frm.hwnd, "Open", strFile, vbNullString, vbNullString, vbNormalFocus)
If lngRet = SE_ERR_NOASSOC Then
'no associated program exists
strDir = String(255, " &quot & Chr(0)
lngRet = GetSystemDirectory(strDir, MAX_PATH)
strDir = Left(strDir, lngRet)
'show the Openwith dialogbox
'Call ShellExecute(Me.hwnd, vbNullString, "RUNDLL32.EXE", _
'"shell32.dll,OpenAs_RunDLL ", strFile, vbNormalFocus)
strFileExt = Mid$(strFile, InStr(1, strFile, ".&quot)strFullPath = "C:\Program Files\Accessories\wordpad.exe " & Chr(34) & strFile & Chr(34)
Shell strFullPath, vbMaximizedFocus
End If

End Function