FindExecutable API [resolved]

[UTGrim]

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:

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