'------------------------------------------------------------------------------
'  ファイル検索（宣言）
'------------------------------------------------------------------------------
Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" _
        (ByVal lpPath As String, ByVal lpFileName As String, _
        ByVal lpExtension As String, ByVal nBufferLength As Long, _
        ByVal lpBuffer As String, lpFilePart As Long) As Long


Dim w_path            As String * 256   ' フルパスファイル名
Dim w_ret             As Long           ' 戻り値（ファイル名のサイズ）

    ' メモ帳（Notepad.exe）を検索する
    w_ret = SearchPath(vbNullString, "Notepad", ".exe", Len(w_path), w_path, 0)