vbs文件处理

以下资料都出自qtp的帮助文档

文件操作有两大类，

1，建立文件，读写文件

2，移动，复制，删除文件

以txt文件为例

建立文件的代码

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("createtest.txt", True)

以写模式打开文件

Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("createtest.txt", ForWriting, True)

在文件中添加数据的步骤

打开文件，写数据，关闭文件，所有的语言都是这个过程

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("createtest.txt", True)
' Write a line with a newline character.
tf.WriteLine("Testing 1, 2, 3.")
' Write three newline characters to the file.       
tf.WriteBlankLines(3)
' Write a line.
tf.Write ("This is a test.")
tf.Close

读文件，帮助文档中是输出到网页中，这里用MsgBox 代替

Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("createtest.txt", True)
' Write a line.
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' Read the contents of the file.
Set ts = fso.OpenTextFile("createtest.txt", ForReading)
s = ts.ReadLine
MsgBox s
ts.Close

移动，复制，删除文件对应Move,Copy,Delete，都很简单