Sample code for 30+ languages & platforms
Xojo Plugin

Get the Entire Remote Directory Tree as XML

See more FTP Examples

Demonstrates the Chilkat Ftp2.DirTreeXml method, which returns an XML representation of the complete remote directory tree rooted at the current remote directory. It takes no arguments; the result uses a <dirTree> root with nested <dir> and <file> elements.

Tip: Code to parse the returned XML can be generated at Chilkat Tools.

Background: This walks the whole subtree in one call and hands back its structure as nested XML — a convenient way to snapshot or audit an entire remote hierarchy without writing your own recursion. Be mindful that it visits every subdirectory, so on a large or deep tree it can be slow and produce a great deal of XML; scope it by changing into the specific directory you care about first.

Chilkat Xojo Plugin Downloads

Xojo Plugin
Dim success As Boolean
success = False

//  Demonstrates the Ftp2.DirTreeXml method, which returns an XML representation of the complete
//  remote directory tree rooted at the current remote directory.  It takes no arguments.

Dim ftp As New Chilkat.Ftp2

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
    System.DebugLog(ftp.LastErrorText)
    Return
End If

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

//  The result uses a <dirTree> root with nested <dir> and <file> elements describing the whole
//  subtree.  This can be a large amount of data for a deep tree.
Dim treeXml As String
treeXml = ftp.DirTreeXml()
If (ftp.LastMethodSuccess = False) Then
    System.DebugLog(ftp.LastErrorText)
    Return
End If

System.DebugLog(treeXml)

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