//ダイアログ起動
rtn = GetOpenFileNameA(ofn) 
if rtn = false then return 

MemCopy(l_filesbuff,ofn.lpstrfile,1024)

//ファイル情報を配列に格納
//超汚い処理だと思います。誰か良い方法があればお願いします。
//要はnullが見つかった時点までが１つのファイル情報で、
//ファイル情報が無くなるまでループさせてます。
//blobにもstring処理のposがあると楽なのに...
do
　i ++
　l_file= \'\'
　do
　　k ++
　　l_bdata = BlobMid (l_filesbuff,k,1)
　　if string(l_bdata) = \'\' then exit
　　l_file += string(l_bdata)
　loop until string(l_bdata) = \'\'
　if l_file = \'\' then exit
　l_files[i] = l_file
loop until l_file = \'\'

ダイアログ情報を取得するだけなのに結構面倒ですね。