(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' 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")
set ftp = Server.CreateObject("Chilkat.Ftp2")

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

' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ftp.LastErrorText) & "</pre>"
    Response.End
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()

Response.Write "<pre>" & Server.HTMLEncode( strXml) & "</pre>"

success = ftp.Disconnect()

%>
</body>
</html>