Determine the executable associated with an application
Determine the executable associated with an application
API Declarations
Private Const MAX_FILENAME_LEN = 256
Rate Determine the executable associated with an application
(2(2 Vote))
'
' Returns "" if no file is found.
'
Public Function FindExecutable(s As String) As String
Dim i As Integer
Dim s2 As String
s2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)
i = FindExecutableA(s & Chr$(0), vbNullString, s2)
If i > 32 Then
FindExecutable = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
FindExecutable = ""
End If
End Function
Determine the executable associated with an application Comments
No comments yet — be the first to post one!
Post a Comment