Asynchronous HTTPS Upload

Demonstrates how to do an HTTPS upload asynchronously in a background thread. The Chilkat Upload software is freeware and may be used in both commercial and non-commercial applications and websites.

Download Chilkat Upload ActiveX (freeware)

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set upload = CreateObject("Chilkat.Upload")

'  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
'  that will process the HTTP Upload.
'  You must change these values to your hostname/path.
upload.Hostname = "www.yourwebserver123.com"
upload.Path = "/receiveUpload.asp"

'  To upload via HTTPS, you only need to set the port
'  and "Ssl" property.  All other programming remains the same:
upload.Ssl = 1
upload.Port = 443

'  Add one or more files to be uploaded.
upload.AddFileReference "file1","dude.gif"
upload.AddFileReference "file2","pigs.xml"
upload.AddFileReference "file3","sample.doc"

'  Begin the HTTPS upload in a background thread:
success = upload.BeginUpload()
If (success <> 1) Then
    MsgBox upload.LastErrorText
Else
    MsgBox "Files uploaded!"
End If

'  Wait for the upload to finish.
'  Print the progress as we wait...
Do While (upload.UploadInProgress = 1)
    '  We can abort the upload at any point by calling:
    '  upload.AbortUpload();

    '  Display the percentage complete and the number of bytes uploaded so far..
    '  The total upload size will become set after the upload begins:
    outFile.WriteLine(upload.PercentUploaded _
         & "% " & upload.NumBytesSent & "/" _
         & upload.TotalUploadSize)

    '  Sleep 2/10ths of a second.
    upload.SleepMs 200

Loop

'  Did the upload succeed?
If (upload.UploadSuccess = 1) Then
    MsgBox "Files uploaded!"
Else
    MsgBox upload.LastErrorText
End If

outFile.Close