Visual FoxPro

Get a Remote File's Size as a String

Demonstrates the Chilkat SFtp.GetFileSizeStr method, which returns a remote file's size in bytes as a decimal string. The arguments are the remote path (or handle), whether symbolic links are followed, and whether the first argument is a handle.

Background: Returning the size as a string sidesteps integer-width limits entirely, so it is the safe choice for files of any size — multi-gigabyte archives, disk images, database dumps. It is also convenient in programming languages that lack a native 64-bit integer type. When you need to do arithmetic on the value, parse the string; when you only need to display or log it, the string is ready to use.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSftp
LOCAL lnPort
LOCAL lcPassword
LOCAL lnBFollowLinks
LOCAL lnBIsHandle
LOCAL lcFileSize

lnSuccess = 0

*  Demonstrates the SFtp.GetFileSizeStr method, which returns a remote file's size in bytes as a
*  decimal string.  The 1st argument is the remote path (or handle), the 2nd selects whether
*  symbolic links are followed, and the 3rd indicates whether the 1st argument is a handle.

loSftp = CreateObject('Chilkat.SFtp')

*  Connect, authenticate, and initialize the SFTP subsystem.
lnPort = 22
lnSuccess = loSftp.Connect("sftp.example.com",lnPort)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  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.
lcPassword = "mySshPassword"

lnSuccess = loSftp.AuthenticatePw("mySshLogin",lcPassword)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

lnSuccess = loSftp.InitializeSftp()
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  The 2nd argument (bFollowLinks) selects whether a symbolic link is followed to its target.
*  The 3rd argument (bIsHandle) is 0 here because the 1st argument is a path, not an
*  open handle.
lnBFollowLinks = 1
lnBIsHandle = 0

*  A string return avoids the 32-bit overflow that GetFileSize32 would have for very large files.
lcFileSize = loSftp.GetFileSizeStr("subdir/hugefile.dat",lnBFollowLinks,lnBIsHandle)
IF (loSftp.LastMethodSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

? "File size: " + lcFileSize + " bytes"

loSftp.Disconnect()

RELEASE loSftp