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.

Download Chilkat XML ActiveX

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set ftp = CreateObject("Chilkat.Ftp2")

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    WScript.Quit
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
    MsgBox ftp.LastErrorText
    WScript.Quit
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
    MsgBox ftp.LastErrorText
    WScript.Quit
End If

'  Load the XML directory listing into a Chilkat XML object:
set xml = CreateObject("Chilkat.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")
    outFile.WriteLine(filename)

    success = ftp.GetFile(filename,filename)
    If (success <> 1) Then
        MsgBox ftp.LastErrorText
        Exit Do
    End If

Next

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

ftp.Disconnect 
outFile.Close