(Visual Basic 6.0) Append to Existing File on FTP Server

Uploads a file to the FTP server. If the remote file (on the FTP server) does not already exist, it is created. Otherwise the uploaded file is appended to the remote file.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim ftp As New ChilkatFtp2

ftp.Hostname = "ftp.myftpserver.com"
ftp.Username = "myUsername"
ftp.Password = "myPassword"

' Connect to the FTP server.
Dim success As Long
success = ftp.ConnectOnly()
If (success <> 1) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

' Authenticate with the FTP server.
success = ftp.LoginAfterConnectOnly()
If (success <> 1) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

Dim localFilePath As String
localFilePath = "/someDirectory/hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"

' Upload to the FTP server, creating the file if it does not yet exist
' on the FTP server, or appending to the remote file if it already exists.
success = ftp.AppendFile(localFilePath,remoteFilename)
If (success <> 1) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

success = ftp.Disconnect()

Debug.Print "Success."