l_i_idx4 = 1
for l_i_idx3 = 1 to upperbound(l_s_filter)             //フィルタバッファポインタ取得
  BlobEdit( l_b_filterbuff, l_i_idx4, l_s_filter[l_i_idx3] )
  l_i_idx4 = l_i_idx4 + lenb(l_s_filter[l_i_idx3]) + 1
next

l_l_filter = lstrcpyn(l_b_filterbuff,l_b_filterbuff,0) //ファイルバッファポインタ取得

// getopenfilename構造体の設定
l_getopenfilename.hwndowner       = handle(parent)
l_getopenfilename.lpstrfilter     = l_l_filter
l_getopenfilename.nmaxcustfilter  = 0
l_getopenfilename.nfilterindex    = 1
l_getopenfilename.lpstrfile       = \"*.TXT\"
l_getopenfilename.nmaxfile        = 1024
l_getopenfilename.lpstrinitialdir = \"C:WINDOWS\"
l_getopenfilename.lpstrtitle      = \"データ取り込み\"
l_getopenfilename.flags           = 512   // 複数ファイル選択可
l_getopenfilename.lstructsize     = 76   // \'76\'：固定
setnull(l_getopenfilename.hinstance)
setnull(l_getopenfilename.lpstrcustomfilter)
setnull(l_getopenfilename.lpstrfiletitle)
setnull(l_getopenfilename.nmaxfiletitle)
setnull(l_getopenfilename.nfileoffset)
setnull(l_getopenfilename.nfileextension)
setnull(l_getopenfilename.lpstrdefext)
setnull(l_getopenfilename.lcustdata)
setnull(l_getopenfilename.lpfnhook)
setnull(l_getopenfilename.lptemplatename)

＜＜次の発言に続きます＞＞