Save String Variable to File on FTP Server

Save the contents of a string variable to a file on an FTP server.

Download Chilkat FTP2 ActiveX

Dim ftp As New ChilkatFtp2

Dim success As Integer

' Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Hostname = "www.example-code.com"
ftp.Username = "example-code.com"
ftp.Password = "****"

' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

' Change to the remote directory where the existing file is located.
success = ftp.ChangeRemoteDir("junk")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

' Upload the contents of a string to a remote file.
Dim fileContents As String
fileContents = "To be, or not to be: that is the question."
Dim remoteFilename As String
remoteFilename = "hamletQuote.txt"

' The last argument to PutFileFromTextData is a charset name.
' The string is automatically converted (if necessary) to this
' charset before uploading.
success = ftp.PutFileFromTextData(remoteFilename,fileContents,"windows-1252")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Disconnect 

MsgBox "String Uploaded!"