Find default application for a file
The following is reprinted for archival purposes from Gary Beene's Information Center, with permission from Mr. Beene himself.
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
( ByVal lpFile As String , ByVal lpDirectory As String , _
ByVal lpResult As String ) As Long
Const MAX_PATH = 260
Dim iResult As Long
Dim Buffer As String
Buffer = Space$(MAX_PATH)
iResult = FindExecutable( "c:\test.txt" , "" , Buffer)
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.