Lianja

Delete Local Files that Do Not Exist on the FTP Server

See more FTP Examples

Demonstrates how to get a list of local files in a directory tree that do not exist on the 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.example.com"
loFtp.Username = "login"
loFtp.Password = "password"

loFtp.KeepSessionLog = .T.

// 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 remote tree to be compared.
llSuccess = loFtp.ChangeRemoteDir("abc123")
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Recursively descend the local directory tree
// and find the files that exist locally but not remotely.
// These are the files what would be uploaded via
// the SyncRemoteTree method call with mode = 1.
// (Mode 1 would upload all files that do not exist on the FTP server.)

// The actual uploading is avoided by setting the preview-only argument to .T..
lnMode = 1
llDescendTree = .T.
llPreviewOnly = .T.
llSuccess = loFtp.SyncRemoteTree2("/temp/abc123",lnMode,llDescendTree,llPreviewOnly)
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// The files what would've been uploaded are now available in the SyncPreview property,
// which contains a list of local file paths, one per line.
// A program can iterate over them like this:
loSa = createobject("CkStringArray")
loSa.LoadFromText(loFtp.SyncPreview)

loFac = createobject("CkFileAccess")

lnNumFiles = loSa.Count
i = 0

do while (i < lnNumFiles)
    lcLocalFilePath = loSa.GetString(i)
    ? lcLocalFilePath

    // An application can delete the file using Chilkat's file access object,
    // or it can choose to use the native file API available in the programming language:
    llSuccess = loFac.FileDelete(lcLocalFilePath)
    if (llSuccess <> .T.) then
        ? "Failed to delete: " + lcLocalFilePath
    endif

    i = i + 1
enddo

llSuccess = loFtp.Disconnect()


release loFtp
release loSa
release loFac