Get FTP Directory Listing Information

Visual FoxPro example showing how to get information about files and subdirectories in the current remote FTP directory.

Download Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess
LOCAL i
LOCAL n

loFtp = CreateObject('Chilkat.Ftp2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Hostname = "www.example-code.com"
loFtp.Username = "****"
loFtp.Password = "****"

*  Connect and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  The ListPattern property is our directory listing filter.
*  The default value is "*", which includes everything.
? loFtp.ListPattern

*  To get file and sub-directory information, simply
*  loop from 0 to ftp.NumFilesAndDirs - 1

n = loFtp.NumFilesAndDirs
IF (n < 0) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

IF (n > 0) THEN
    FOR i = 0 TO n - 1

        *  Display the filename
        ? loFtp.GetFilename(i)

        *  Display the file size (in bytes)
        ? loFtp.GetSize(i)

        *  Is this a sub-directory?
        IF (loFtp.GetIsDirectory(i) = 1) THEN
            ? ".. this is a sub-directory"
        ENDIF

        ? "--"
    NEXT
ENDIF

? "-----------------------------------"

*  Changing the ListPattern automatically changes the value
*  of the NumFilesAndDirs property.  Only files and directories
*  matching the ListPattern are returned.
loFtp.ListPattern = "*.asp"
n = loFtp.NumFilesAndDirs
IF (n < 0) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

IF (n > 0) THEN
    FOR i = 0 TO n - 1

        *  Display the filename
        ? loFtp.GetFilename(i)

        *  Display the file size (in bytes)
        ? loFtp.GetSize(i)

        ? "--"
    NEXT
ENDIF

loFtp.Disconnect()