保存
上一篇 /
下一篇 2010-04-19 11:04:53
/ 个人分类：Quick test professional
1.简单的不能再简单，就是指定一个文本文件，每次写一行信息。
至于文本大小控制，信息格式化等，都没有实现。
懒了，可能暂时不用QTP了，所以保存点东西以后直接拷贝用。
writing into text.
Const LogFile = "c:\temp\aa.txt"
Class Logging
Private m_LogFile, m_objFSO, m_objLogFile, m_objTextStream
Private Sub Class_Initialize() 'Constructor
m_LogFile = LogFile 'Set member variable to value of global here
Set m_objFSO = CreateObject("Scripting.FileSystemObject")
If(Not(m_objFSO.FileExists(m_LogFile))) Then
m_objFSO.CreateTextFile m_LogFile
End If
Set m_objLogFile = m_objFSO.GetFile(m_LogFile)
Set m_objTextStream = m_objLogFile.OpenAsTextStream(8,0)
End Sub
Public Sub LogThis(text)
m_objTextStream.WriteLine text
End Sub
Public Sub LogThisWTime(text)
m_objTextStream.WriteLine "["&Now&"]" & " " &text
End Sub
Private Sub Class_Terminate 'Destructor
msgbox "destruction."
m_objTextStream.Close()
Set m_objFSO = Nothing
Set m_objLogFile = Nothing
Set m_objTextStream = Nothing
End Sub
End Class
Sub logInitial
Set MyLog = New Logging
Environment("LogObject") = MyLog
End Sub
Sub writeSample
On Error Resume Next
If Not(IsObject(Environment("LogObject")) and TypeName(Environment("LogObject")) = "Logging") Then
'renew object
Set Environment("LogObject") = Nothing
logInitial
End If
'Dim logInstance
'Set logInstance = Environment("LogObject")
Environment("LogObject").LogThis "Policy ID = " & "hello." & CStr(time)
End Sub
2.取得指定目录中的所有文件或子目录
Dim fso, folder1, files1, NewsFile,sFolder
Set fso = CreateObject("Scripting.FileSystemObject")
sFolder = "I:\temp2\zhangleiFlowOriginal\FINISHED"
If sFolder = "" Then
Wscript.Quit
End If
Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
Set folder1 = fso.GetFolder(sFolder)
'Set files = folder.Files
Set fc = folder1.SubFolders
For each folderIdx In fc
NewFile.WriteLine(folderIdx.Name)
Next
NewFile.Close
收藏
举报
TAG:
QTP
qtp
