Rem : =========== 追加单行文本,文件不存在创建文件Rem : =========== 文件必须存在Rem : =========== line 中可以是单行,也可以是多行文本,Sub AppendLine( file, line )Dim ff = Trim( file )If Right(f,1) = "/" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = False Then Err.Raise vbObjectError+128, "AppendLine", f & " does not exists"Dim errMsgOn Error Resume NextRem ====== code beginconst forappending = 8set objtextfile = fso.opentextfile (file, forappending, true)objtextfile.writeline(line)objtextfile.closeRem ====== code endIf Err.Number <> 0 ThenerrMsg = Err.DescriptionOn Error Goto 0Err.Raise vbObjectError+128, "AppendLine", errMsg & vbNewLine & _" file:" & vbTab & file & vbNewLine & _" line:" & vbTab & lineExit SubEnd IfEnd Sub