Get FTP Directory Listing Information

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

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