这个纯粹就是提供给懒人的,其实随便翻翻帮助就能搜出来。当然有人会习惯性的使用FSO来进行文件操作,我这里就免了,入乡随俗,既然TestComplete已经提供了aqFile,我就不搞那么多事情了。越简单越好,够用就好。
'文件操作
Sub DoFile
Dim sLogFile
Dim sFileCont
sLogFile = ProjectSuite.Path & "\log\xxx.log"
'创建文件
If Not aqFile.Exists(sLogFile) Then
Call aqFile.Create(sLogFile)
End If
'写入文件
Call aqFile.WriteToTextFile(sLogFile, "Hello, world1!" & vbCrlf , aqFile.ctANSI, True)
Call aqFile.WriteToTextFile(sLogFile, "Hello, world2!" & vbCrlf , aqFile.ctANSI, False)
'读出文件
sFileCont=aqFile.ReadWholeTextFile(sLogFile,aqFile.ctANSI)
Log.Message(sFileCont)
End Sub