Visual Basic 6.0

Upload Bytes to an FTP Server (BinData)

Demonstrates the Chilkat Ftp2.PutFileBd method, which uploads the bytes in a BinData to a remote path. The first argument is the BinData and the second is the remote file path. No encoding conversion is performed.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: When the content already lives in memory — generated, decompressed, or pulled from a database — this uploads it directly with no intermediate local file. It uses STOR, so an existing remote file is replaced, and the bytes are sent exactly as held, making it the correct choice for binary data.

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.PutFileBd method, which uploads the bytes in a BinData to a remote path.
'  The 1st argument is the BinData and the 2nd is the remote file path.  No encoding conversion is
'  performed.

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

'  Put the bytes to upload into a BinData.  (Here they are loaded from a local file, but the
'  bytes could come from anywhere.)
Dim bd As New ChilkatBinData
success = bd.LoadFile("qa_data/image.png")
If (success = 0) Then
    Debug.Print bd.LastErrorText
    Exit Sub
End If

success = ftp.PutFileBd(bd,"public_html/image.png")
If (success = 0) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

Debug.Print "Uploaded " & bd.NumBytes & " bytes."

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