(VB.NET) SCP Sync Tree Upload

Synchronize local and remote directory trees by uploading newer or missing files to the remote server.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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

Dim ssh As New Chilkat.Ssh

' Hostname may be an IP address or hostname:
Dim hostname As String = "www.some-ssh-server.com"
Dim port As Integer = 22

' Connect to an SSH server:
Dim success As Boolean = ssh.Connect(hostname,port)
If (success <> True) Then
    Debug.WriteLine(ssh.LastErrorText)
    Exit Sub
End If


' Wait a max of 5 seconds when reading responses..
ssh.IdleTimeoutMs = 5000

' Authenticate using login/password:
success = ssh.AuthenticatePw("myLogin","myPassword")
If (success <> True) Then
    Debug.WriteLine(ssh.LastErrorText)
    Exit Sub
End If



' Once the SSH object is connected and authenticated, we use it
' in our SCP object.
Dim scp As New Chilkat.Scp

success = scp.UseSsh(ssh)
If (success <> True) Then
    Debug.WriteLine(scp.LastErrorText)
    Exit Sub
End If


' The remoteRoot is relative to the HOME directory of the SSH user account.
Dim remoteRoot As String = "workspace/projectB"
Dim localRoot As String = "c:/aaworkarea/scp/workspace/projectB"

' Upload synchronization modes:
' mode=0: Upload all files
' mode=1: Upload all files that do not exist on the FTP server.
' mode=2: Upload newer or non-existant files.
' mode=3: Upload only newer files.  If a file does not already exist on the FTP server, it is not uploaded.
' mode=4: transfer missing files or files with size differences.
' mode=5: same as mode 4, but also newer files.

' Additional files and directores can be excluded by setting the SyncMustNotMatch property.
' The SyncMustNotMatch patterns apply only to the final filename or directory part of a path.
' If a directory matches, then it will not be traversed in a recursive traversal.
' 
scp.SyncMustNotMatch = "*.o;*.obj;*.log; temp"

' The SyncMustMatch property can be set to restrict the files uploaded to only those
' matching at least one pattern in a set.
scp.SyncMustMatch = "*.cpp; *.h"

' Do the recursive sync to upload newer or non-existant files:
Dim bRecurse As Boolean = True
Dim mode As Integer = 2
success = scp.SyncTreeUpload(localRoot,remoteRoot,mode,bRecurse)
If (success <> True) Then
    Debug.WriteLine(scp.LastErrorText)
    Exit Sub
End If


' The files actually uploaded can be examined in the SyncedFiles property.
' It is a string property that contains the relative path, one per line, of each
' file uploaded.
Debug.WriteLine("Files uploaded: ")
Debug.WriteLine(scp.SyncedFiles)

Debug.WriteLine("----")
Debug.WriteLine("SCP sync upload success.")

' Disconnect
ssh.Disconnect()