Visual FoxPro

File Existence Check

See more FTP Examples

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

LOCAL lnSuccess
LOCAL loFtp
LOCAL lnFileSize

lnSuccess = 0

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

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