VB6 Code - Mencari Aplikasi Asosiasi Sebuah File

Di bawah ini merupakan fungsi VB6 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