(Xojo Plugin) Simple FTP Upload
Simple example to upload a file to an FTP server.
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim ftp As New Chilkat.Ftp2
ftp.Hostname = "ftp.example.com"
ftp.Username = "login"
ftp.Password = "password"
// Connect and login to the FTP server.
Dim success As Boolean
success = ftp.Connect()
If (success <> True) Then
System.DebugLog(ftp.LastErrorText)
Return
End If
// Change to the remote directory where the file will be uploaded.
success = ftp.ChangeRemoteDir("junk")
If (success <> True) Then
System.DebugLog(ftp.LastErrorText)
Return
End If
// Upload a file.
Dim localPath As String
localPath = "c:/temp/hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"
success = ftp.PutFile(localPath,remoteFilename)
If (success <> True) Then
System.DebugLog(ftp.LastErrorText)
Return
End If
success = ftp.Disconnect()
System.DebugLog("File Uploaded!")
|