Visual FoxPro

Get a Remote FTP File's Size by Name

Demonstrates the Chilkat Ftp2.GetSizeByName method, which returns the size in bytes of a named file in the current remote directory as a 32-bit integer. The only argument is the filename — a name, not a path. It returns -1 when the file is not found or the size cannot be obtained.

Background: This is the direct way to get one file's size when you already know its name, typically via a SIZE command — no full directory listing required. Because the result is 32-bit, it cannot represent files past about 2 GB; use GetSizeStrByName for large files. The argument must be a bare filename in the current directory, so ChangeRemoteDir to the right place first.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lnFileSize

lnSuccess = 0

*  Demonstrates the Ftp2.GetSizeByName method, which returns the size in bytes of a named file in
*  the current remote directory as a 32-bit integer.  The only argument is the filename (a name,
*  not a path).

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "myFtpLogin"

*  Normally you would not hard-code the password in source.  You should instead obtain it
*  from an interactive prompt, environment variable, or a secrets vault.
loFtp.Password = "myPassword"

lnSuccess = loFtp.Connect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

lnSuccess = loFtp.ChangeRemoteDir("public_html")
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

*  Returns -1 when the file is not found or the size cannot be obtained.  For files that may
*  exceed 2 GB, use GetSizeStrByName (returns a decimal string).
lnFileSize = loFtp.GetSizeByName("report.pdf")
IF (lnFileSize < 0) THEN
    ? "File not found, or size unavailable."
    RELEASE loFtp
    CANCEL
ENDIF

? "report.pdf is " + STR(lnFileSize) + " bytes"

lnSuccess = loFtp.Disconnect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

RELEASE loFtp