Directory Existence Check

Download 32-bit Chilkat FTP2 ActiveX (.msi)

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

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

How to test if a directory exists on an FTP server.

A good way to check to see if a directory already exists is to try to "cd" to that remote directory by calling ChangeRemoteDir. If it succeeds, then the directory exists. If not, then it does not exist. An alternative method is to set the ListPattern = "*" and then iterate over the files/directories, looking for the directory.

LOCAL loFtp
LOCAL lnSuccess
LOCAL lnDirExists
LOCAL i
LOCAL n
LOCAL lnFoundDir
LOCAL lnIsDir
LOCAL lcFname

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 = "ftp.chilkatsoft.com"
loFtp.Username = "***"
loFtp.Password = "***"

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

*  Does the "temp" directory exist?

lnDirExists = loFtp.ChangeRemoteDir("/temp")
IF (lnDirExists = 1) THEN
    =MESSAGEBOX("Yes, the temp directory exists.")
    *   Yes, it exists. Restore the current remote dir:
    lnSuccess = loFtp.ChangeRemoteDir("..")
    IF (lnSuccess <> 1) THEN
        =MESSAGEBOX(loFtp.LastErrorText)
        QUIT
    ENDIF

ENDIF

*  Alternatively, you may set the ListPattern = "*" and
*   look for the directory:
loFtp.ListPattern = "*"

n = loFtp.NumFilesAndDirs
IF (n < 0) THEN
    *  Failed to get directory listing based on ListPattern
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

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

        lnIsDir = loFtp.GetIsDirectory(i)
        IF (lnIsDir = 1) THEN

            lcFname = loFtp.GetFilename(i)
            IF (lcFname = "temp") THEN
                =MESSAGEBOX("Found temp directory!")
                lnFoundDir = 1
                EXIT
            ENDIF

        ENDIF

    NEXT
ENDIF

IF (lnFoundDir <> 1) THEN
    =MESSAGEBOX("temp directory not found!")
ENDIF

loFtp.Disconnect()