$s_year=year;                      // 年4桁

$s_year_tail=rightstr($s_year,2);  // 西暦の末尾2桁を切り出す

$s_month=month;                    // 月

$s_day=day;                        // 日

$s_hour=hour;                      // 時

$s_minute=minute;                  // 分

$s_second=second;                  // 秒

$oid_txt=".txt";                   // 拡張子をtxtとして保存する

$mk_filename=windir+"￥￥temp"+"￥￥sample_" 

+$s_year_tail + $s_month+ $s_day + $s_hour 

+ $s_minute + $s_second + $oid_txt;

openfile $mk_filename;