Lianja

Delete FTP Directory Tree

See more FTP Examples

Delete an entire directory tree on an FTP server. Lianja

llSuccess = .F.

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

loFtp = createobject("CkFtp2")

loFtp.Hostname = "ftp.yourftpserver.com"
loFtp.Username = "****"
loFtp.Password = "****"

// Connect and login to the FTP server.
llSuccess = loFtp.Connect()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Set the current remote directory to the root of
// the tree to be deleted
llSuccess = loFtp.ChangeRemoteDir("/something")
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Delete the entire tree.  All sub-directories and files are deleted.
llSuccess = loFtp.DeleteTree()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// The /something directory still exists.  To delete it,
// we move up one directory level and then delete it.
llSuccess = loFtp.ChangeRemoteDir("..")
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

llSuccess = loFtp.RemoveRemoteDir("something")
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

llSuccess = loFtp.Disconnect()


release loFtp