qtp中怎么删除文件？或者，能否在打开一个文件时，无论文件是否存在，都重新创建

rosemary_ren · 发表于 2006-12-30 16:59:35

yuandjing · 发表于 2007-5-25 13:33:25

呵呵，不错

brianq · 发表于 2007-5-25 12:46:16

学习了

wangyong3552128 · 发表于 2007-5-24 12:57:04

收藏
+++++++++++++++++++++++
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

rting · 发表于 2007-4-30 11:46:37

学习了

xihong2004 · 发表于 2007-4-30 09:27:53

好贴
顶

songfun · 发表于 2007-4-29 17:42:51

这个程序不错，楼主可以借鉴下

原帖由 风过无息 于 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 ...

风过无息 · 发表于 2007-4-29 16:57:21

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 编辑 ]