下面是写如文件的代码,函数库(ByRef loginAccount, ByRef flag)这是两个参数
Public Function LoginLog(ByRef loginAccount, ByRef flag)
Dim nowdate,filePath,fso,file
nowdate= now '当前日期时间
filePath = "C:\Users\student\Desktop\chapter13\Test_Log\TestResult_log.txt" ' 要写入的文件的路径
message = "[" & nowdate & "]账户“" & loginAccount & "”" '字符串或者输出值之间要用&连接起来,如同Java中的+号
'文件的读为 1,文件的写为 2,文件的追加为 8
Const forreading=1,forwriting=2,appending=8
'创建文件对象
set fso = createobject("scripting.filesystemobject")
if (fso.fileexists(filePath)) then
'文件存在 ,打开 文件追加字符串
set file = fso.opentextfile(filePath,8, ture)
else
'文件不存在,创建文件,再追加字符串
set file = fso.createtextfile(filePath, 8, ture)
End if
If flag=true Then
file.Write(message + "登陆成功")
else
file.Write(message + "登陆失败")
End If
file.WriteLine '换行
file.Close ' 文件的关闭
End Function