scooterhead
asked on
Opening the associated application
I have an application which uses a listview control to display icons that have associated Word documents with them and others that have TIFF images associated with them....(ex. icon#1 = c:\windows\temp\doc1.doc icon#2 = c:\windows\temp\image1.tif
Try This.. <smile>
Syntax:
booReturn = xShellByExtension(strFileN
<----- Code Begin ----->
Option Explicit
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, _
ByVal lpDirectory As String, _
ByVal lpResult As String) _
As Long
Public Function xShellByExtension _
(ByVal strFileName As String) _
As Boolean
Dim strProgram As String
Dim lngReturn As Long
' Get Program PathName
strProgram = Space(255)
lngReturn = FindExecutable(strFileName
If lngReturn < 32 _
Then
MsgBox (strFileName & " FILE NOT FOUND")
Exit Function
End If
strProgram = Left$(strProgram, InStr(1, strProgram, Chr(0)) - 1)
' Execute Program with FileName as Parameter 1
Dim StrCommand As String
StrCommand = """ & strProgram & """ _
& """ & strFileName & """
lngReturn = Shell(strCommand, vbNormalFocus)
If lngReturn > 0 _
Then
xShellByExtension = True 'Successful
Else
MsgBox (strCommand & vbCrLf & " PROGRAM NOT FOUND")
xShellByExtension = False 'UNSUCCESSFUL
End If
End Function
<----- Code End ----->
Syntax:
booReturn = xShellByExtension(strFileN
<----- Code Begin ----->
Option Explicit
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, _
ByVal lpDirectory As String, _
ByVal lpResult As String) _
As Long
Public Function xShellByExtension _
(ByVal strFileName As String) _
As Boolean
Dim strProgram As String
Dim lngReturn As Long
' Get Program PathName
strProgram = Space(255)
lngReturn = FindExecutable(strFileName
If lngReturn < 32 _
Then
MsgBox (strFileName & " FILE NOT FOUND")
Exit Function
End If
strProgram = Left$(strProgram, InStr(1, strProgram, Chr(0)) - 1)
' Execute Program with FileName as Parameter 1
Dim StrCommand As String
StrCommand = """ & strProgram & """ _
& """ & strFileName & """
lngReturn = Shell(strCommand, vbNormalFocus)
If lngReturn > 0 _
Then
xShellByExtension = True 'Successful
Else
MsgBox (strCommand & vbCrLf & " PROGRAM NOT FOUND")
xShellByExtension = False 'UNSUCCESSFUL
End If
End Function
<----- Code End ----->
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you
http://support.microsoft.com/support/kb/articles/Q170/9/18.asp