Delete FTP Directory Tree

Delete an entire directory tree on an FTP server.

Download Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess

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.yourftpserver.com"
loFtp.Username = "****"
loFtp.Password = "****"

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

*  Set the current remote directory to the root of
*  the tree to be deleted
lnSuccess = loFtp.ChangeRemoteDir("/something")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  Delete the entire tree.  All sub-directories and files are deleted.
lnSuccess = loFtp.DeleteTree()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  The /something directory still exists.  To delete it,
*  we move up one directory level and then delete it.
lnSuccess = loFtp.ChangeRemoteDir("..")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

lnSuccess = loFtp.RemoveRemoteDir("something")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Disconnect()