File Existence Check

Testing to see if a file exists on the FTP server. The GetSizeByName method is a convenient way to check if a file exists. It will return -1 if the file does not exist, otherwise it returns the size of the file in bytes.

Download Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess
LOCAL lnFileSize

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

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

*  Set the current remote directory to where the file is located:
lnSuccess = loFtp.ChangeRemoteDir("/something")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  Test to see if the file exists by getting the file size by name.
*  If a -1 is returned, the file does not exist.

lnFileSize = loFtp.GetSizeByName("test123.txt")
IF (lnFileSize < 0) THEN
    ? "file does not exist"
ELSE
    ? "file exists and is " + STR(lnFileSize) + " bytes in size"
ENDIF

loFtp.Disconnect()