Visual FoxPro

Get a Remote FTP File's Size by Name as a String

Demonstrates the Chilkat Ftp2.GetSizeStrByName method, which returns the size in bytes of a named file in the current remote directory as a decimal string. The only argument is the filename.

Background: Returning the size as text avoids integer-width limits entirely, so this is the safe choice for a file of any size and for languages without a convenient large-integer type. Like the other by-name lookups it takes a bare filename in the current directory; parse the string when you need arithmetic, or use it directly for display.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lcFileSize

lnSuccess = 0

*  Demonstrates the Ftp2.GetSizeStrByName method, which returns the size in bytes of a named file
*  in the current remote directory as a decimal string.  The only argument is the filename.

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

*  The string form avoids integer-size limits, so it is safe for files of any size.
lcFileSize = loFtp.GetSizeStrByName("bigfile.zip")
IF (loFtp.LastMethodSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

? "bigfile.zip is " + lcFileSize + " bytes"

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

RELEASE loFtp