• Home
 · 
• Windows System Services
 · 
• Determine the executable associated with an application

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

• 1
• 2
• 3
• 4
• 5

(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