Visual FoxPro

chmod (Setting File Permissions)

See more FTP Examples

This example assumes your FTP server supports the "chmod" command, which typically means it must be a server running on a Linux or Unix system. The SendCommand method may be called to send arbitrary commands to the FTP server. This example sends a "chmod" command to set the file permissions. Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lcResp

lnSuccess = 0

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

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.cknotes.com"
loFtp.Username = "myLogin"
loFtp.Password = "myPassword"

*  Connect and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

*  Send a chmod command to the FTP server to set
*  the permissions of a file to 0644:
lcResp = loFtp.SendCommand("chmod 0644 hamlet.xml")

IF (loFtp.LastMethodSuccess <> 1) THEN
    *  Failed.
    ? loFtp.LastErrorText
ELSE
    *  You should write code to examine the response to
    *  the SendCommand.  As an example, the FTP server
    *  used for testing responds with this for success:
    *  200 Permissions changed on hamlet.xml
    ? lcResp
ENDIF

lnSuccess = loFtp.Disconnect()

RELEASE loFtp