How to append text in VBScript.

AppendFile.vbs

Sub AppendFile(inFilepath, outFilepath)
    On Error Resume Next
    ForAppending = 8
    Set output = gFileSystem.OpenTextFile(outFilepath, ForAppending, True)
    Set input = gFileSystem.OpenTextFile(inFilepath)
    Do Until input.AtEndOfStream = true
        line = input.ReadLine
        output.WriteLine line
    Loop
    input.Close
    output.Close
    If Err.Number <> 0 Then
        script = WScript.ScriptFullName
        message = script & " AppendFile failed"
        MsgBox message
        WScript.Quit 1
    End If
End Sub