(VBScript) S3 Download Specific Version of File

Demonstrates how to download a file from the Amazon S3 service using the versionId query parameter.

Note: This example requires Chilkat v9.5.0.89 or later. (A problem regarding AwsSubResources w/ downloads was fixed shortly after the v9.5.0.88 release.)

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

http.AwsAccessKey = "AWS_ACCESS_KEY"
http.AwsSecretKey = "AWS_SECRET_KEY"
http.S3Ssl = 1
http.AwsRegion = "us-east-1"
http.AwsEndpoint = "s3.amazonaws.com"
http.AwsSubResources = "versionId=x8UPzRsgskmbe55lEQvhLi25PQl2lcFH"

bucketName = "chilkat100"
objectName = "frenchUtf8.txt"
localFilePath = "qa_output/frenchUtf8.txt"

success = http.S3_DownloadFile(bucketName,objectName,localFilePath)

If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
Else
    outFile.WriteLine("File downloaded.")
End If


outFile.Close