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