51Testing软件测试论坛

标题: qtp中怎么删除文件？或者，能否在打开一个文件时，无论文件是否存在，都重新创建 [打印本页]

作者: rosemary_ren 时间: 2006-12-30 16:59
标题: qtp中怎么删除文件？或者，能否在打开一个文件时，无论文件是否存在，都重新创建
qtp中怎么删除文件？或者，能否在打开一个文件时，无论文件是否存在，都重新创建

作者: denisye 时间: 2006-12-30 17:11
使用FileSystemObject能解决你的问题
附上你应该会使用到的方法
object.DeleteFile ( filespec[, force] );
object.OpenTextFile(filename[, iomode[, create[, format]]])

作者: winder238 时间: 2007-1-2 10:32
建议去看看robot的东西
看一下那边怎么做的
qtp还是很傻瓜的
只是提供了封装起来的功能

作者: yay 时间: 2007-1-6 17:16

原帖由 winder238 于 2007-1-2 10:32 发表
qtp还是很傻瓜的
只是提供了封装起来的功能

QTP不是傻瓜,而是超方便.因为使用的是VBs.而VBs封装了很多操作系统比较底层的功能.所以在windows环境下,QTP能做的不光是替你点两下鼠标.只要是VBs能做的QTP也基本上也能做.

作者: wangyong3552128 时间: 2007-4-29 15:36
你们出去打架哈

作者: 风过无息 时间: 2007-4-29 15:49
用FileExist判断一下

作者: wangyong3552128 时间: 2007-4-29 16:30
具体怎么写???

作者: 风过无息 时间: 2007-4-29 16:57
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\testfile.txt")) Then
'update the exist the file
msg = " exists."
Else
'create the new file
msg = " doesn't exist."
End If
msgbox msg

[ 本帖最后由风过无息于 2007-4-29 16:58 编辑 ]

作者: songfun 时间: 2007-4-29 17:42
这个程序不错，楼主可以借鉴下

原帖由 风过无息 于 2007-4-29 16:57 发表
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\testfile.txt")) Then
'update the exist the file
msg = " exists."
Else
'create the new ...

作者: xihong2004 时间: 2007-4-30 09:27
好贴
顶

作者: rting 时间: 2007-4-30 11:46
学习了

作者: wangyong3552128 时间: 2007-5-24 12:57
收藏
+++++++++++++++++++++++
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\testfile.txt")) Then
'update the exist the file
msg = " exists."
Else
'create the new file
msg = " doesn't exist."
End If
msgbox msg

作者: brianq 时间: 2007-5-25 12:46
学习了

作者: yuandjing 时间: 2007-5-25 13:33
呵呵，不错

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)