Xbase++

SCP Download Files Matching a Pattern, such as *.txt

See more SCP Examples

Demonstrates how to SCP download files matching a pattern, such as *.txt. Xbase++

LOCAL nSuccess
LOCAL oSsh
LOCAL cHostname
LOCAL nPort
LOCAL oScp
LOCAL cRemoteDir
LOCAL cLocalDir
LOCAL nMode
LOCAL nBRecurse

nSuccess := 0

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

oSsh := CreateObject("Chilkat.Ssh")

//  Connect to an SSH server:
cHostname := "MY-SSH-SERVER-DOMAIN-OR-IP"
nPort := 22

nSuccess := oSsh:Connect(cHostname, nPort)
IF (nSuccess != 1)
    ? oSsh:LastErrorText
    oSsh:destroy()
    RETURN
ENDIF

//  Wait a max of 5 seconds when reading responses..
oSsh:IdleTimeoutMs := 5000

//  Authenticate using login/password:
nSuccess := oSsh:AuthenticatePw("MY-SSH-LOGIN", "MY-SSH-PASSWORD")
IF (nSuccess != 1)
    ? oSsh:LastErrorText
    oSsh:destroy()
    RETURN
ENDIF

//  Once the SSH object is connected and authenticated, use it
//  in the SCP object.
oScp := CreateObject("Chilkat.Scp")

nSuccess := oScp:UseSsh(oSsh)
IF (nSuccess != 1)
    ? oScp:LastErrorText
    oSsh:destroy()
    oScp:destroy()
    RETURN
ENDIF

oScp:HeartbeatMs := 200

//  Set the SyncMustMatch property to "*.pem" to download only .pem files
oScp:SyncMustMatch := "*.pem"

cRemoteDir := "qa_syncA"
cLocalDir := "c:/aaworkarea/scp/qa_syncA"

//  Download synchronization modes:
//  mode=0: Download all files
//  mode=1: Download all files that do not exist on the local filesystem.
//  mode=2: Download newer or non-existant files.
//  mode=3: Download only newer files.  
//          If a file does not already exist on the local filesystem, it is not downloaded from the server.
//  mode=5: Download only missing files or files with size differences.
//  mode=6: Same as mode 5, but also download newer files.
nMode := 0

//  Do not recurse the remote directory tree.  Only download files matching *.pem
//  from the given remote directory.
nBRecurse := 0

nSuccess := oScp:SyncTreeDownload(cRemoteDir, cLocalDir, nMode, nBRecurse)
IF (nSuccess != 1)
    ? oScp:LastErrorText
    oSsh:destroy()
    oScp:destroy()
    RETURN
ENDIF

? "SCP download matching success."

//  Disconnect
oSsh:Disconnect()

oSsh:destroy()
oScp:destroy()