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