(PowerBuilder) 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

integer li_rc
oleobject loo_Ftp
integer li_Success
string ls_XmlListing
oleobject loo_Xml
integer i
integer li_NumEntries
oleobject loo_XEntry
integer li_Sz
oleobject loo_XLastMod
integer li_Month
integer li_Year
integer li_Day

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

loo_Ftp = create oleobject
// Use "Chilkat_9_5_0.Ftp2" for versions of Chilkat < 10.0.0
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

// Connect to the FTP server.
li_Success = loo_Ftp.ConnectOnly()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Authenticate with the FTP server.
li_Success = loo_Ftp.LoginAfterConnectOnly()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Retrieve (in XML format) the HOME directory of this FTP account.
ls_XmlListing = loo_Ftp.GetXmlDirListing("*.*")
if loo_Ftp.LastMethodSuccess <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Now load the XML and parse it..
loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadXml(ls_XmlListing)
Write-Debug loo_Xml.GetXml()

// Iterate over the XML...
i = 0
li_NumEntries = loo_Xml.NumChildren
do while i < li_NumEntries
    loo_XEntry = loo_Xml.GetChild(i)
    if loo_XEntry.TagEquals("dir") = 1 then
        Write-Debug "Directory: " + loo_XEntry.Content
    else
        li_Sz = loo_XEntry.GetChildIntValue("size")
        Write-Debug "File: " + loo_XEntry.GetChildContent("name") + ", size: " + string(li_Sz)
        loo_XLastMod = loo_XEntry.FindChild("lastModTime")
        if loo_XEntry.LastMethodSuccess = 1 then
            li_Month = loo_XLastMod.GetAttrValueInt("m")
            li_Year = loo_XLastMod.GetAttrValueInt("y")
            li_Day = loo_XLastMod.GetAttrValueInt("d")
            Write-Debug "    YYYY-MM-DD: " + string(li_Year) + "-" + string(li_Month) + "-" + string(li_Day)
            destroy loo_XLastMod
        end if

    end if

    destroy loo_XEntry
    i = i + 1
loop

loo_Ftp.Disconnect()

Write-Debug "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>
// 
// 


destroy loo_Ftp
destroy loo_Xml