chmod (Setting File Permissions)

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.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loFtp
LOCAL lnSuccess
LOCAL lcResponse

loFtp = CreateObject('Chilkat.Ftp2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

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
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  Send a chmod command to the FTP server to set
*  the permissions of a file to 0644:

lcResponse = loFtp.SendCommand("chmod 0644 hamlet.xml")

IF (lcResponse = NULL ) 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
    =MESSAGEBOX(lcResponse)
ENDIF

loFtp.Disconnect()