HP-VB

下面是写如文件的代码，函数库（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