Upload Multiple Files Matching Pattern

The MPutFiles method can be called to upload all files matching a wildcarded filename pattern from a local filesystem directory.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

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("ftp.chilkatsoft.com");
$ftp->put_Username("my_login");
$ftp->put_Password("my_password");

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

#  Change to the remote directory where the files will be uploaded.
#  for the FTP account.
$success = $ftp->ChangeRemoteDir("junk");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

#  Upload all files with filenames matching "c:/temp/ftp_*.asp"
$numFilesUploaded = $ftp->MPutFiles("c:/temp/ftp_*.asp");
if ($numFilesUploaded < 0) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

$ftp->Disconnect();

print $numFilesUploaded . " Files Uploaded!" . "\r\n";