Dim fso,operfile
Const foreading = 1, forwriting = 2, forappending = 8
set fso = createobject("scripting.filesystemobject")
if fso.fileexits("d:/ceshi.txt") then
fso.deletefile"d:/ceshi.txt"
else
end if
set openfile = fso.createtextfile("d:/ceshi.txt")
openfile.writeline("写入内容")
openfile.close