VBScript

Append Text to a Remote FTP File (StringBuilder)

Demonstrates the Chilkat Ftp2.AppendFileSb method, which encodes the text in a StringBuilder and appends the bytes to a remote file. The arguments are the remote filename, the StringBuilder, and the charset.

Background: When you have accumulated several lines or records in a StringBuilder, this appends them to a remote file in one call, encoding as it writes. It pairs naturally with building up text in memory and flushing it to a remote log periodically.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the Ftp2.AppendFileSb method, which encodes the text in a StringBuilder and
'  appends the bytes to a remote file.  The 1st argument is the remote filename, the 2nd is the
'  StringBuilder, and the 3rd is the charset.

set ftp = CreateObject("Chilkat.Ftp2")

ftp.Hostname = "ftp.example.com"
ftp.Username = "myFtpLogin"

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password = "myPassword"

success = ftp.Connect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append("appended line one" & vbLf)
success = sb.Append("appended line two" & vbLf)

success = ftp.AppendFileSb("logs/app.log",sb,"utf-8")
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Appended text.")

success = ftp.Disconnect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If


outFile.Close