Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) S3 Upload a File with Public Read PermissionsDemonstrates how to upload a file to the Amazon S3 service with the x-amz-acl request header set to "public-read" to allow the file to be publicly downloadable.
' This example assumes the Chilkat HTTP API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' Insert your AWS keys here: http.AwsAccessKey = "AWS_ACCESS_KEY" http.AwsSecretKey = "AWS_SECRET_KEY" bucketName = "chilkat.ocean" objectName = "seahorse.jpg" localFilePath = "qa_data/jpg/seahorse.jpg" contentType = "image/jpg" ' Add the x-amz-acl request header to make the file publicly readable. http.SetRequestHeader "x-amz-acl","public-read" success = http.S3_UploadFile(localFilePath,contentType,bucketName,objectName) If (success <> True) Then Debug.Print http.LastErrorText Exit Sub End If If (http.LastStatus = 200) Then Debug.Print "File uploaded." Else Debug.Print "Response status code: "; http.LastStatus Debug.Print http.LastResponseBody End If |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.