QTP之创建text文件并写入内容

上一篇 / 下一篇  2013-01-19 23:23:24

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 penfile = fso.createtextfile("d:/ceshi.txt")

openfile.writeline("写入内容")

openfile.close


TAG: QTP qtp 写入TXT

hyn0120的个人空间 引用 删除 hyn0120   /   2013-02-28 15:40:34
刚学这个,拿着你的脚本走了下,有问题,后面两行改成如下,成功:
penfile.WriteLine("写入内容")

penfile.Close
 

评分:0

我来说两句

日历

« 2024-04-24  
 123456
78910111213
14151617181920
21222324252627
282930    

我的存档

数据统计

  • 访问量: 1775
  • 日志数: 6
  • 建立时间: 2013-01-15
  • 更新时间: 2013-01-20

RSS订阅

Open Toolbar