Description
| The paths of the files uploaded or downloaded in the last call to SyncTreeUpload or SyncTreeDownload. The paths are listed one per line. In both cases (for upload and download) each line contains the paths relative to the root synced directory.
Note: For SyncTreeDownload, some of entires can be the paths of local directories that were created. Local directory paths will be terminated with a "/" char to disinguish a directory from an actual file.
|
Example
| Sub Main
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
' Synchronize the remote directory tree rooted at "syncDownloadTest/xml"
' with the local directory tree rooted at "qa_output"
' Both directories are relative paths. The remote directory
' is relative to the HOME directory of the SSH user account.
' The local directory is relative to the current working directory of the process.
' It is also possible to use absolute paths.
Dim remoteDir As String
remoteDir = "syncDownloadTest"
Dim localDir As String
localDir = "qa_output"
' Possible modes that can be passed to the SyncTreeDownload method are:
' 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.
' mode=99: Do not download files, but instead delete remote files that do not exist locally.
' This example will use mode 6 to download missing, newer, or files with size differences.
Dim mode As Long
mode = 6
' This example will turn on recursion to synchronize the entire tree.
' Recursion can be turned off to synchronize the files of a single directory.
Dim recursive As Long
recursive = 1
success = sftp.SyncTreeDownload(remoteDir,localDir,mode,recursive)
If (success <> 1) Then
Debug.Print sftp.LastErrorText
Exit Sub
End If
' Examine the list of downloaded files.
' The downloaded files are listed one per line in the SyncedFiles property.
' Local directories that were created will be listed with a trailing "/" char.
Dim fileList As String
fileList = sftp.SyncedFiles
Debug.Print fileList
Debug.Print ""
' For example:
' data/
' chiliPepper.gif
' helloWorld.pdf
' alice.key
' anter_cert.pem
' text/
' accentedLatin1.txt
' accentedUtf8.txt
' abc/
' abc/chiliPepper.gif
' abc/ghk/
' text/something/
' text/PolishEmailBody.txt
' text/frenchUtf8.txt
' text/helloWorld.txt
' data/chiliPepper.gif
' data/xyz/
' data/xyz/dkimHtmlBody.txt
' data/xyz/emailForCreateDsn.eml
' data/xyz/dkimVerifyTest.eml
' You could load the strings into a Chilkat string table..
Dim sb As New ChilkatStringBuilder
success = sb.Append(fileList)
Dim st As New ChilkatStringTable
success = st.AppendFromSb(sb)
' Find out how many files + dirs
Debug.Print "Total count = " & st.Count
Dim i As Long
i = 0
Do While i < st.Count
Debug.Print st.StringAt(i)
i = i + 1
Loop
Debug.Print "Success."
End Sub
|