(Excel) Download Directory Tree Listing as XML

Downloads a complete remote directory tree listing in XML format. The directory tree in XML format looks like this:

<?xml version="1.0" encoding="utf-8" ?>

<dirTree>
    <file>bookstore.xml</file>
    <file>hamlet.xml</file>
    <file>hamlet.zip</file>
    <file>japanese.xml</file>
    <file>New Text Document (2).txt</file>
    <file>New Text Document.txt</file>
    <file>nutrition.xml</file>
    <file>pigs.xml</file>
    <file>plants.xml</file>
    <dir name="subdir1">
        <file>box.ico</file>
        <file>Setup.exe</file>
        <dir name="a">
            <file>dude.gif</file>
            <file>HelloWorld123.txt</file>
        </dir>
    </dir>
    <dir name="subdir2">
        <file>scream.jpg</file>
    </dir>
</dirTree>

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim ftp As Chilkat.Ftp2
Set ftp = Chilkat.NewFtp2

ftp.Hostname = "ftp.something.com"
ftp.Username = "test"
ftp.Password = "test"

' Connect and login to the FTP server.

success = ftp.Connect()
If (success <> True) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

' Recursively download the listings for the complete
' remote directory tree at the current remote dir.
' In this case, we haven't called ChangeRemoteDir,
' so the current remote dir is the root directory of the
' FTP account.

strXml = ftp.DirTreeXml()

Debug.Print strXml

success = ftp.Disconnect()