Perl

Create a Remote Directory on an SFTP Server

Demonstrates the Chilkat SFtp.CreateDir method, which creates a remote directory. The only argument is the directory path.

Background: The key caveat is that parent directories are not necessarily created automatically — creating a/b/c in one call may fail if a/b does not already exist. To build a deep path, create each level in turn (or check existence first with FileExists). Attempting to create a directory that already exists is generally an error, so guard against it when re-running a job.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the SFtp.CreateDir method, which creates a remote directory.  The only argument
# is the directory path.

my $sftp = Chilkat2::SFtp->new;

# Connect, authenticate, and initialize the SFTP subsystem.
my $port = 22;
my $success = $sftp->Connect('sftp.example.com', $port);
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

# Normally you would not hard-code the password in source.  You should instead obtain it
# from an interactive prompt, environment variable, or a secrets vault.
my $password = 'mySshPassword';

$success = $sftp->AuthenticatePw('mySshLogin', $password);
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

$success = $sftp->InitializeSftp();
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

# Create a remote directory.  Parent directories are not necessarily created automatically, so
# create each level if you need a full path.
$success = $sftp->CreateDir('subdir/newfolder');
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

print "Directory created.\n";

$sftp->Disconnect();