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

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loFtp = createobject("CkFtp2")

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "login"
loFtp.Password = "password"

// Connect and login to the FTP server.
llSuccess = loFtp.Connect()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
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
// calling GetDirCount

n = loFtp.GetDirCount()
if (n < 0) then
    ? loFtp.LastErrorText
    release loFtp
    return
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) <> .T.) then
            lnFileCount = lnFileCount + 1
            // Display the filename
            ? loFtp.GetFilename(i)
        endif

    next

    ? "Total number of files = " + str(lnFileCount)
endif

llSuccess = loFtp.Disconnect()


release loFtp