(Classic ASP) Get FTP Directory Listing as XML

Demonstrates how to call GetXmlDirListing and parse the results.

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 assumes Chilkat Ftp2 to have been previously unlocked.
' See Unlock Ftp2 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 = "www.my-ftp-server.com"
ftp.Username = "mFtpLogin"
ftp.Password = "myFtpPassword"

' Connect to the FTP server.
success = ftp.ConnectOnly()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ftp.LastErrorText) & "</pre>"
    Response.End
End If

' Authenticate with the FTP server.
success = ftp.LoginAfterConnectOnly()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ftp.LastErrorText) & "</pre>"
    Response.End
End If

' Retrieve (in XML format) the HOME directory of this FTP account.
xmlListing = ftp.GetXmlDirListing("*.*")
If (ftp.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ftp.LastErrorText) & "</pre>"
    Response.End
End If

' Now load the XML and parse it..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadXml(xmlListing)
Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' Iterate over the XML...
i = 0
numEntries = xml.NumChildren
Do While i < numEntries
    ' xEntry is a Chilkat.Xml
    Set xEntry = xml.GetChild(i)
    If (xEntry.TagEquals("dir") = 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( "Directory: " & xEntry.Content) & "</pre>"
    Else
        sz = xEntry.GetChildIntValue("size")
        Response.Write "<pre>" & Server.HTMLEncode( "File: " & xEntry.GetChildContent("name") & ", size: " & sz) & "</pre>"
        ' xLastMod is a Chilkat.Xml
        Set xLastMod = xEntry.FindChild("lastModTime")
        If (xEntry.LastMethodSuccess = 1) Then
            month = xLastMod.GetAttrValueInt("m")
            year = xLastMod.GetAttrValueInt("y")
            day = xLastMod.GetAttrValueInt("d")
            Response.Write "<pre>" & Server.HTMLEncode( "    YYYY-MM-DD: " & year & "-" & month & "-" & day) & "</pre>"

        End If

    End If

    i = i + 1
Loop

success = ftp.Disconnect()

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

' Sample XML directory listing:
' <?xml version="1.0" encoding="utf-8" ?>
' <remoteDir>
'     <dir>Desktop</dir>
'     <dir>Documents</dir>
'     <dir>Downloads</dir>
'     <dir>Music</dir>
'     <dir>Pictures</dir>
'     <dir>Public</dir>
'     <dir>Templates</dir>
'     <dir>Videos</dir>
'     <file>
'         <name>c.py</name>
'         <size>1244</size>
'         <lastModTime full="20151009-000000" y="2015" d="9" m="10" hh="0" mm="0" ss="0" />
'     </file>
'     <file>
'         <name>cacerts_linux</name>
'         <size>177207</size>
'         <lastModTime full="20140915-000000" y="2014" d="15" m="9" hh="0" mm="0" ss="0" />
'     </file>
'     <file>
'         <name>empty.txt</name>
'         <size>0</size>
'         <lastModTime full="20150917-000000" y="2015" d="17" m="9" hh="0" mm="0" ss="0" />
'     </file>
'     <file>
'         <name>hamlet.xml</name>
'         <size>279658</size>
'         <lastModTime full="20160917-084100" y="2016" d="17" m="9" hh="8" mm="41" ss="0" />
'     </file>
' </remoteDir>
' 
' 

%>
</body>
</html>