Xbase++

Get FTP Directory Listing as XML

See more FTP Examples

Demonstrates how to call GetXmlDirListing and parse the results. Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL cXmlListing
LOCAL oXml
LOCAL i
LOCAL nNumEntries
LOCAL oXEntry
LOCAL nSz
LOCAL oXLastMod
LOCAL nMonth
LOCAL nYear
LOCAL nDay

nSuccess := 0

//  This example assumes Chilkat Ftp2 to have been previously unlocked.
//  See Unlock Ftp2 for sample code.

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "www.my-ftp-server.com"
oFtp:Username := "mFtpLogin"
oFtp:Password := "myFtpPassword"

//  Connect to the FTP server.
nSuccess := oFtp:ConnectOnly()
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Authenticate with the FTP server.
nSuccess := oFtp:LoginAfterConnectOnly()
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Retrieve (in XML format) the HOME directory of this FTP account.
cXmlListing := oFtp:GetXmlDirListing("*.*")
IF (oFtp:LastMethodSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Now load the XML and parse it..
oXml := CreateObject("Chilkat.Xml")
oXml:LoadXml(cXmlListing)
? oXml:GetXml()

//  Iterate over the XML...
i := 0
nNumEntries := oXml:NumChildren
DO WHILE i < nNumEntries
    oXEntry := oXml:GetChild(i)
    IF (oXEntry:TagEquals("dir") == 1)
        ? "Directory: " + oXEntry:Content
    ELSE
        nSz := oXEntry:GetChildIntValue("size")
        ? "File: " + oXEntry:GetChildContent("name") + ", size: " + Str(nSz)
        oXLastMod := oXEntry:FindChild("lastModTime")
        IF (oXEntry:LastMethodSuccess == 1)
            nMonth := oXLastMod:GetAttrValueInt("m")
            nYear := oXLastMod:GetAttrValueInt("y")
            nDay := oXLastMod:GetAttrValueInt("d")
            ? "    YYYY-MM-DD: " + Str(nYear) + "-" + Str(nMonth) + "-" + Str(nDay)
            oXLastMod:destroy()
        ENDIF

    ENDIF

    oXEntry:destroy()
    i := i + 1
ENDDO

oFtp:Disconnect()

? "Success."

//  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>
//  
//

oFtp:destroy()
oXml:destroy()