Get Number of FIles in Directory, not including sub-directories

Visual FoxPro example demonstrating how to get the number of files in a directory not including sub-directories.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

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

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

LOCAL loFtp
LOCAL lnSuccess
LOCAL i
LOCAL n
LOCAL lnFileCount

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.myFtpServer.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

*  Fetch the current remote directory contents by
*  accessing the NumFilesAndDirs property.

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

IF (n > 0) THEN
    *  Loop over the directory contents, incrementing the count
    *  each time it is NOT a directory.

    lnFileCount = 0
    FOR i = 0 TO n - 1

        *  Is this NOT a sub-directory?
        IF (loFtp.GetIsDirectory(i) <> 1) THEN
            lnFileCount = lnFileCount + 1
            *  Display the filename
            ? loFtp.GetFilename(i)
        ENDIF

    NEXT

    ? "Total number of files = " + STR(lnFileCount)
ENDIF

loFtp.Disconnect()