Sub writelog(filepath,logstr)
Const ForReading=1,ForWritting=2,ForAppdening=8
'创建文件
Dim fso,f
Dim teststr
Set fso=CreateObject("scripting.filesystemobject")
If fso.FileExists("D:test.txt") Then
MsgBox "Exist"
Else
MsgBox "Not Exist"
Set f=fso.CreateTextFile(filepath)
End If
'将数据写进文本中
Set f=fso.OpenTextFile(filepath,ForAppdening,false)
f.WriteLine logstr
f.Close
'将文本的数据读出来
Set f=fso.OpenTextFile(filepath,ForReading,False)
teststr=f.ReadLine
MsgBox teststr
f.Close
Set fso=Nothing
End Sub
writelog "D:\test.txt",Now()&"----执行自动化测试"