(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    String sStrXml
    String sTemp1

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

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "ftp.something.com"
    Set ComUsername Of hoFtp To "test"
    Set ComPassword Of hoFtp To "test"

    // Connect and login to the FTP server.
    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

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

    Get ComDirTreeXml Of hoFtp To sStrXml

    Showln sStrXml

    Get ComDisconnect Of hoFtp To iSuccess


End_Procedure