FTP XML Directory Listing / Download Most Recently Modified Files

Demonstrates how to retrieve a directory listing in XML format, sort it by last-modified date, and download the 5 most recently modified files.

Note: This example relies upon a new feature added to the GetXmlDirListing method. Namely, the resultant XML includes a "full" attribute with a date/time that is in a sortable format. This feature is available in the pre-release, or in new versions released after 20-May-2008.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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>
<%
set ftp = Server.CreateObject("Chilkat_9_5_0.Ftp2")

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write ftp.LastErrorText & "<br>"

End If

ftp.Hostname = "ftp.chilkatsoft.com"
ftp.Username = "myLogin"
ftp.Password = "myPassword"

'  Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    Response.Write ftp.LastErrorText & "<br>"

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.GetXmlDirListing("*.asp")
If (strXml = vbNullString ) Then
    Response.Write ftp.LastErrorText & "<br>"

End If

'  Load the XML directory listing into a Chilkat XML object:
set xml = Server.CreateObject("Chilkat_9_5_0.Xml")
xml.LoadXml strXml

'  Sort by a record attribute:

ascending = 0
xml.SortRecordsByAttribute "lastModTime","full",ascending

'  Download the 5 most recent files:

n = xml.NumChildren
If (n > 5) Then
    n = 5
End If

For i = 0 To n - 1

    Set child = xml.GetChild(i)
    filename = child.GetChildContent("name")
    Response.Write Server.HTMLEncode( filename) & "<br>"

    success = ftp.GetFile(filename,filename)
    If (success <> 1) Then
        Response.Write ftp.LastErrorText & "<br>"
        Exit Do
    End If

Next

'  The full sorted XML may be obtained like this:
strXml = xml.GetXml()

ftp.Disconnect 
%>
</body>
</html>