(SQL Server) 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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @ftp int
    -- Use "Chilkat_9_5_0.Ftp2" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Ftp2', @ftp OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OASetProperty @ftp, 'Hostname', 'ftp.something.com'
    EXEC sp_OASetProperty @ftp, 'Username', 'test'
    EXEC sp_OASetProperty @ftp, 'Password', 'test'

    -- Connect and login to the FTP server.
    DECLARE @success int
    EXEC sp_OAMethod @ftp, 'Connect', @success OUT
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @ftp, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @ftp
        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.
    DECLARE @strXml nvarchar(4000)

    EXEC sp_OAMethod @ftp, 'DirTreeXml', @strXml OUT


    PRINT @strXml

    EXEC sp_OAMethod @ftp, 'Disconnect', @success OUT

    EXEC @hr = sp_OADestroy @ftp


END
GO