(PowerBuilder) Get FTP File Permissions

PowerBuilder example showing how to retrieve file permissions (via FTP) for each file in a remote directory.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Ftp
integer li_Success
integer i
integer n

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample 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

// Set the various properties to establish the connection.
loo_Ftp.Hostname = "ftp.example.com"
loo_Ftp.Username = "login"
loo_Ftp.Password = "password"

// If SSL/TLS is required..
// See http://www.cknotes.com/determining-ftp2-connection-settings/ 
// for more information.
loo_Ftp.AuthTls = 1
loo_Ftp.PassiveUseHostAddr = 1

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

// To get file permissions in UNIX format, disallow MSLD:
loo_Ftp.AllowMlsd = 0

// To get file and sub-directory information, simply
// loop from 0 to ftp.GetDirCount() - 1
i = 0
n = loo_Ftp.GetDirCount()
if n < 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Show the type of permissions information that is available.
// The two most common types are "mlsd" and "unix".  See the
// online reference documentation for more information.
if n > 0 then
    Write-Debug "The permissions format is: " + loo_Ftp.GetPermType(0)
end if

do while i < n

    // Display the permissions and filename
    Write-Debug loo_Ftp.GetPermissions(i) + " " + loo_Ftp.GetFilename(i)

    i = i + 1
loop

// Assuming MLSD was possible, let's see the file permissions in MLSD format:
loo_Ftp.AllowMlsd = 1

// Clear the directory cache so we're forced to re-fetch the directory listing:
loo_Ftp.ClearDirCache()

n = loo_Ftp.GetDirCount()
if n < 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Show the type of permissions information that is available.
// The two most common types are "mlsd" and "unix".  See the
// online reference documentation for more information.
if n > 0 then
    Write-Debug "----"
    Write-Debug "The permissions format is: " + loo_Ftp.GetPermType(0)
end if

i = 0
do while i < n

    // Display the permissions and filename
    Write-Debug loo_Ftp.GetPermissions(i) + " " + loo_Ftp.GetFilename(i)

    i = i + 1
loop

li_Success = loo_Ftp.Disconnect()


destroy loo_Ftp