FindExecutable API [resolved]
I'm trying to use the FindExecutable API to find out which is the default application for HTML files. Unfortunately, it returns "" every time...
Here's my code:
VB Code:
Dim strVar As String, strResult as String
strResult = FindExecutable("temp.html", App.Path + "\", "") 'Calls FindExecutable API
If strResult <> "" Then 'If the result is not blank
strVar = ExtractFileName(strVar) 'Extracts filename with a function I made
Else
strVar = "not detected"
End If
optPreview(0).Caption = "Use Default (" + strVar + ")" 'Sets the caption
Could anybody help me with this?
Thanks :D