Perl

Get Number of FIles in Directory, not including sub-directories

See more FTP Examples

_LANGUAGE_ example demonstrating how to get the number of files in a directory not including sub-directories. 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("login");
$ftp->put_Password("password");

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

# The ListPattern property is our directory listing filter.
# The default value is "*", which includes everything.
print $ftp->listPattern() . "\r\n";

# Fetch the current remote directory contents by
# calling GetDirCount

$n = $ftp->GetDirCount();
if ($n < 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

if ($n > 0) {
    # Loop over the directory contents, incrementing the count
    # each time it is NOT a directory.
    $fileCount = 0;
    for ($i = 0; $i <= $n - 1; $i++) {

        # Is this NOT a sub-directory?
        if ($ftp->GetIsDirectory($i) != 1) {
            $fileCount = $fileCount + 1;
            # Display the filename
            print $ftp->getFilename($i) . "\r\n";
        }

    }

    print "Total number of files = " . $fileCount . "\r\n";
}

$success = $ftp->Disconnect();