(Visual FoxPro) Check if File Exists

Demonstrates how to check to see if a file exists.

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

LOCAL loSftp
LOCAL lcHostname
LOCAL lnPort
LOCAL lnSuccess
LOCAL lnFollowLinks
LOCAL lnStatus

* This example assumes 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.SFtp')
loSftp = CreateObject('Chilkat.SFtp')

* Connect to the SSH server.  
lcHostname = "sftp.example.com"
lnPort = 22
lnSuccess = loSftp.Connect(lcHostname,lnPort)
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

* Authenticate with the SSH server.  Chilkat SFTP supports
* both password-based authenication as well as public-key
* authentication.  This example uses password authenication.
lnSuccess = loSftp.AuthenticatePw("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

* After authenticating, the SFTP subsystem must be initialized:
lnSuccess = loSftp.InitializeSftp()
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

* Check to see if a file exists

* The return value is one of the following values:
* -1: Unable to check. Examine the LastErrorText to determine the reason for failure.
* 0: File does not exist.
* 1: The regular file exists.
* 2: It exists, but it is a directory.
* 3: It exists, but it is a symlink (only possible if followLinks is false)
* 4: It exists, but it is a special filesystem entry type.
* 5: It exists, but it is an unkown filesystem entry type.
* 6: It exists, but it is an socket filesystem entry type.
* 7: It exists, but it is an char device entry type.
* 8: It exists, but it is an block device entry type.
* 9: It exists, but it is an FIFO entry type.

lnFollowLinks = 1
lnStatus = loSftp.FileExists("someDir/someFile.txt",lnFollowLinks)
IF (lnStatus < 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

? "status = " + STR(lnStatus)

? "Success"

RELEASE loSftp