Perl

File Existence Check

See more FTP Examples

Testing to see if a file exists on the FTP server. The GetSizeByName method is a convenient way to check if a file exists. It will return -1 if the file does not exist, otherwise it returns the size of the file in bytes. Perl

use chilkat();

$success = 0;

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

$ftp = chilkat::CkFtp2->new();

$ftp->put_Hostname("ftp.example.com");
$ftp->put_Username("username");
$ftp->put_Password("password");

# Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Set the current remote directory to where the file is located:
$success = $ftp->ChangeRemoteDir("something");
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Test to see if the file exists by getting the file size by name. 
# If a -1 is returned, the file does not exist.
$fileSize = $ftp->GetSizeByName("test123.txt");
if ($fileSize < 0) {
    print "file does not exist" . "\r\n";
}
else {
    print "file exists and is " . $fileSize . " bytes in size" . "\r\n";
}

$success = $ftp->Disconnect();