Get FTP Directory Listing Information

Perl example showing how to get information about files and subdirectories in the current remote FTP directory.

Download Chilkat Perl Module

use chilkat;

$ftp = new chilkat::CkFtp2();

#  Any string unlocks the component for the 1st 30-days.
$success = $ftp->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

$ftp->put_Hostname("www.example-code.com");
$ftp->put_Username("****");
$ftp->put_Password("****");

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

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

#  To get file and sub-directory information, simply
#  loop from 0 to ftp.NumFilesAndDirs - 1

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

if ($n > 0) {
    for ($i = 0; $i <= $n - 1; $i++) {

        #  Display the filename
        print $ftp->getFilename($i) . "\r\n";

        #  Display the file size (in bytes)
        print $ftp->GetSize($i) . "\r\n";

        #  Is this a sub-directory?
        if ($ftp->GetIsDirectory($i) == 1) {
            print ".. this is a sub-directory" . "\r\n";
        }

        print "--" . "\r\n";
    }

}

print "-----------------------------------" . "\r\n";

#  Changing the ListPattern automatically changes the value
#  of the NumFilesAndDirs property.  Only files and directories
#  matching the ListPattern are returned.
$ftp->put_ListPattern("*.asp");
$n = $ftp->get_NumFilesAndDirs();
if ($n < 0) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

if ($n > 0) {
    for ($i = 0; $i <= $n - 1; $i++) {

        #  Display the filename
        print $ftp->getFilename($i) . "\r\n";

        #  Display the file size (in bytes)
        print $ftp->GetSize($i) . "\r\n";

        print "--" . "\r\n";
    }

}

$ftp->Disconnect();