(Visual FoxPro) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loFtp
LOCAL lnSuccess
LOCAL lnFileSize

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

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

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

* Set the current remote directory to where the file is located:
lnSuccess = loFtp.ChangeRemoteDir("something")
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
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

lnSuccess = loFtp.Disconnect()

RELEASE loFtp