vbs脚本：AppendLine

Rem :  ===========  追加单行文本，文件不存在创建文件
Rem :  ===========  文件必须存在
Rem :  ===========  line 中可以是单行，也可以是多行文本，
Sub AppendLine( file, line )
	Dim f
	f = 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 errMsg
	On Error Resume Next
	Rem  ======  code begin
	const forappending = 8
	set objtextfile = fso.opentextfile (file, forappending, true)
	objtextfile.writeline(line)
	objtextfile.close
	Rem  ======  code end
	If Err.Number <> 0 Then
		errMsg = Err.Description
		On Error Goto 0
		Err.Raise vbObjectError+128, "AppendLine", errMsg & vbNewLine & _
								"                file:" & vbTab & file & vbNewLine & _
								"                line:" & vbTab & line
		Exit Sub
	End If

End Sub