(Visual FoxPro) 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>

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

LOCAL loFtp
LOCAL lnSuccess
LOCAL lcStrXml

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

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

* Connect and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* 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.

lcStrXml = loFtp.DirTreeXml()

? lcStrXml

lnSuccess = loFtp.Disconnect()

RELEASE loFtp