*********************************************
使用外部関数
FUNCTION ｂoolean GetOpenFileNameA(ref str_ofn ofn) LIBRARY \"comdlg32.dll\"　//ダイアログボックス
FUNCTION ULong lstrcpyn(ref blob dst,blob src, UnsignedLong length) &
Library \"kernel32.DLL\" Alias for \"lstrcpynA\" //アドレス取得用
Subroutine MemCopy(ref blob dest,long src, Long cbCopy) &
Library \"Kernel32.DLL\" Alias for \"RtlMoveMemory\"　//ポインタの値取得用
****************************************************
str_ofn ofn　 //OPENFILENAME構造体
boolean rtn //関数戻り値

blob{1024} l_filterbuff //フィルタのバッファ
blob{1024} l_filesbuff //ファイル情報バッファ
blob{1} l_bdata //バッファデータ
string l_filterstr[] //フィルタ定義
string l_file,l_files[] //ファイル情報
long n,i,k //ループカウンタ
long p //バッファの文字位置ポインタ

//構造体へ値をセット
ofn.lstructsize = 4 * 18 + 2 * 2
ofn.hwndOwner = handle(parent)

//フィルタ定義
l_filterstr[1] = \'テキストファイル (*.txt;*text)\'
l_filterstr[2] = \'*.txt;*.text \'
l_filterstr[3] = \'ワードファイル (*.doc)\'
l_filterstr[4] = \'*.doc\'
l_filterstr[5] = \'エクセルファイル (*.xls)\'
l_filterstr[6] = \'*.xls\'
l_filterstr[7] = \'すべてのファイル (*.*)\'
l_filterstr[8] = \'*.*\'
p = 1
for n = 1 to upperbound(l_filterstr)
　BlobEdit( l_filterbuff,p,l_filterstr[n] )
　p += len(l_filterstr[n]) + 1
next
ofn.lpstrFilter = lstrcpyn(l_filterbuff,l_filterbuff,0)　//フィルタバッファポインタ取得
ofn.nMaxCustFilter  = 1024 //フィルタのバッファサイズ
ofn.nFilterIndex = 1　//任意に変更

ofn.lpstrfile = lstrcpyn(l_filesbuff, l_filesbuff,0) //ファイルバッファポインタ取得
ofn.nMaxFile = 1024 //ファイルバッファサイズ

//フラグ定義
ofn.Flags = 512 + 524288 //OFN_ALLOWMULTISELECT + OFN_EXPLORER
サンプル２へ続きます