Visual Basic 6.0

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 Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 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).

Dim ftp As New ChilkatFtp2

ftp.Hostname = "ftp.example.com"
ftp.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.
ftp.Password = "myPassword"

success = ftp.Connect()
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

success = ftp.ChangeRemoteDir("public_html")
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

'  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).
Dim fileSize As Long
fileSize = ftp.GetSizeByName("report.pdf")
If (fileSize < 0) Then
    Debug.Print "File not found, or size unavailable."
    Exit Sub
End If

Debug.Print "report.pdf is " & fileSize & " bytes"

success = ftp.Disconnect()
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If