Xojo Plugin

Quote and SendCommand

See more FTP Examples

Demonstrate the Quote and SendCommand methods. Xojo Plugin

Dim success As Boolean
success = False

// 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.
success = ftp.Connect()
If (success <> True) Then
    System.DebugLog(ftp.LastErrorText)
    Return
End If

// Tell the FTP object to keep an in-memory session log
// so we can see the commands sent to the server,
// and the responses received back.
ftp.KeepSessionLog = True

// Change the current remote directory via the Quote method:
success = ftp.Quote("CWD junk")
If (success <> True) Then
    System.DebugLog(ftp.LastErrorText)
    Return
End If

// Move back up 
// In this case, ChangeRemoteDir sends "CWD .." to the FTP server.
success = ftp.ChangeRemoteDir("..")
If (success <> True) Then
    System.DebugLog(ftp.LastErrorText)
    Return
End If

// Do the same via the SendCommand method where the
// raw FTP server response is returned:
Dim serverResponse As String
serverResponse = ftp.SendCommand("CWD junk")
If (ftp.LastMethodSuccess <> True) Then
    System.DebugLog(ftp.LastErrorText)
Else
    System.DebugLog(serverResponse)
End If

success = ftp.Disconnect()

System.DebugLog("Session Log:")
System.DebugLog(ftp.SessionLog)