VBScript

Upload Text Content to an FTP File

Demonstrates the Chilkat Ftp2.PutFileFromTextData method, which uploads text (encoded with a charset) directly to a remote file. The arguments are the remote filename, the text, and the charset.

Background: This is the most direct way to create a small remote text file from a string in your program — no StringBuilder and no local file needed. It is ideal for writing a short status file, a marker, or generated configuration. The charset controls the encoding of the file content.

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.PutFileFromTextData method, which uploads text (encoded with a charset)
'  directly to a remote file.  The 1st argument is the remote filename, the 2nd is the text, 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

'  Upload a small text file whose content is provided directly, with no local file involved.
content = "Hello from Chilkat FTP." & vbLf & "Second line." & vbLf
success = ftp.PutFileFromTextData("public_html/hello.txt",content,"utf-8")
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Uploaded text.")

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


outFile.Close