Sunday, May 27, 2012

Mencari Aplikasi Asosiasi Sebuah File

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