(Tcl) Delete Local Files that Do Not Exist on the FTP Server

Demonstrates how to get a list of local files in a directory tree that do not exist on the FTP server.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftp.example.com"
CkFtp2_put_Username $ftp "login"
CkFtp2_put_Password $ftp "password"

CkFtp2_put_KeepSessionLog $ftp 1

# Connect and login to the FTP server.
set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Set the current remote directory to the root of
# the remote tree to be compared.
set success [CkFtp2_ChangeRemoteDir $ftp "abc123"]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# 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 1.
set mode 1
set descendTree 1
set previewOnly 1
set success [CkFtp2_SyncRemoteTree2 $ftp "/temp/abc123" $mode $descendTree $previewOnly]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# 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:
set sa [new_CkStringArray]

CkStringArray_LoadFromText $sa [CkFtp2_syncPreview $ftp]

set fac [new_CkFileAccess]

set numFiles [CkStringArray_get_Count $sa]
set i 0

while {$i < $numFiles} {
    set localFilePath [CkStringArray_getString $sa $i]
    puts "$localFilePath"

    # 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:
    set success [CkFileAccess_FileDelete $fac $localFilePath]
    if {$success != 1} then {
        puts "Failed to delete: $localFilePath"
    }

    set i [expr $i + 1]
}

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp
delete_CkStringArray $sa
delete_CkFileAccess $fac