PowerBuilder

Get FTP File Permissions

See more FTP Examples

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

integer li_rc
long li_Success
oleobject loo_Ftp
long i
long n

li_Success = 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

loo_Ftp = create oleobject
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