Di bawah ini merupakan fungsi untuk mencari aplikasi yang diasosiasikan terhadap sebuah file. Bingung? misalnya kita double klik file berektensi .ini maka aplikasinya notepad.exe, double klik file berektensi .doc maka aplikasinya Microsoft Word, dst.
Option Explicit
Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256
Public Function FindExecutable(FileName As String) As String
Dim iReturn As Integer
Dim sResults As String
sResults = String(MAX_FILENAME_LEN, 32) & Chr$(0)
iReturn = FindExecutableA(FileName & Chr$(0), vbNullString, sResults)
If iReturn > 32 Then
FindExecutable = Left$(sResults, InStr(sResults, Chr$(0)) - 1)
Else
FindExecutable = ""
End If
End Function
Contoh penggunaan fungsi untuk mencari assosiasi sebuah file
Private Sub Form_Load()
MsgBox FindExecutable("c:\boot.ini")
End Sub
