Lianja

Get FTP Directory Listing as XML

See more FTP Examples

Demonstrates how to call GetXmlDirListing and parse the results. Lianja

llSuccess = .F.

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

loFtp = createobject("CkFtp2")

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

// Connect to the FTP server.
llSuccess = loFtp.ConnectOnly()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Authenticate with the FTP server.
llSuccess = loFtp.LoginAfterConnectOnly()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Retrieve (in XML format) the HOME directory of this FTP account.
lcXmlListing = loFtp.GetXmlDirListing("*.*")
if (loFtp.LastMethodSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Now load the XML and parse it..
loXml = createobject("CkXml")
loXml.LoadXml(lcXmlListing)
? loXml.GetXml()

// Iterate over the XML...
i = 0
lnNumEntries = loXml.NumChildren
do while i < lnNumEntries
    loXEntry = loXml.GetChild(i)
    if (loXEntry.TagEquals("dir") = .T.) then
        ? "Directory: " + loXEntry.Content
    else
        lnSz = loXEntry.GetChildIntValue("size")
        ? "File: " + loXEntry.GetChildContent("name") + ", size: " + str(lnSz)
        loXLastMod = loXEntry.FindChild("lastModTime")
        if (loXEntry.LastMethodSuccess = .T.) then
            lnMonth = loXLastMod.GetAttrValueInt("m")
            lnYear = loXLastMod.GetAttrValueInt("y")
            lnDay = loXLastMod.GetAttrValueInt("d")
            ? "    YYYY-MM-DD: " + str(lnYear) + "-" + str(lnMonth) + "-" + str(lnDay)
            release loXLastMod
        endif

    endif

    release loXEntry
    i = i + 1
enddo

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


release loFtp
release loXml