Sample code for 30+ languages & platforms
B4X

Download an FTP Directory Tree

See more FTP Examples

Demonstrates the Chilkat Ftp2.DownloadTree method, which downloads all selected files and subdirectories beneath the current remote directory and recreates the tree under a local directory. The only argument is the local root. Existing local files are overwritten.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is a full recursive pull — it walks the remote tree and mirrors its structure locally in one call, the backbone of tasks like backing up a server directory or grabbing an entire published site. Unlike the Sync methods it transfers everything selected regardless of what already exists locally; use SetOldestDateStr or the file/directory filter properties to narrow what is included.

Chilkat B4X Downloads

B4X
Dim success As Boolean = False

'  Demonstrates the Ftp2.DownloadTree method, which downloads all selected files and subdirectories
'  beneath the current remote directory and recreates the tree locally.  The only argument is the
'  local root directory.

Dim ftp As ChilkatFtp2
ftp.Initialize("ftp")

ftp.Hostname = "ftp.example.com"
ftp.Username = "myFtpLogin"

'  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.
ftp.Password = "myPassword"

success = ftp.Connect
If success = False Then
    Log(ftp.LastErrorText)
    Return
End If


success = ftp.ChangeRemoteDir("public_html")
If success = False Then
    Log(ftp.LastErrorText)
    Return
End If


'  Recreate the remote tree under the local directory.  Existing local files are overwritten.
success = ftp.DownloadTree("qa_output/site")
If success = False Then
    Log(ftp.LastErrorText)
    Return
End If

Log("Directory tree downloaded.")

success = ftp.Disconnect
If success = False Then
    Log(ftp.LastErrorText)
    Return
End If