(Visual Basic 6.0) SFTP Download Files Matching a Pattern

Demonstrates how to download files in a directory matching one or more patterns (such as "*.zip" or "abc*_*0719.csv".

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim sftp As New ChilkatSFtp

Dim success As Long
success = sftp.Connect("my-ssh-server.com",22)
If (success = 1) Then
    success = sftp.AuthenticatePw("mySshLogin","mySshPassword")
End If

If (success = 1) Then
    success = sftp.InitializeSftp()
End If

If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

' The SyncTreeDownload method can be used non-recursively to download all files matching a set of patterns.

' This example will download all files, but only those files having filenames
' that match *.csv and *.eml
sftp.SyncMustMatch = "*.eml; *.gif"

Dim remoteDir As String
remoteDir = "syncDownloadTest/someDir"
Dim localDir As String
localDir = "qa_output"

' mode=0: Download all matching files according to SyncMustMatch
Dim mode As Long
mode = 0

' do not recursively traverse the remote directory tree.
Dim recursive As Long
recursive = 0

success = sftp.SyncTreeDownload(remoteDir,localDir,mode,recursive)
If (success <> 1) Then
    Debug.Print sftp.LastErrorText
    Exit Sub
End If

Debug.Print "Success."