QTP之创建text文件并写入内容
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
?
