B4X

Append to Existing File on FTP Server

See more FTP Examples

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. B4X

Dim success As Boolean = False

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

Dim ftp As ChilkatFtp2
ftp.Initialize("ftp")

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

'  Connect to the FTP server.
success = ftp.ConnectOnly
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  Authenticate with the FTP server.
success = ftp.LoginAfterConnectOnly
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


Dim localFilePath As String = "/someDirectory/hamlet.xml"
Dim remoteFilename As String = "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 <> True Then
    Log(ftp.LastErrorText)
    Return
End If


ftp.Disconnect

Log("Success.")