(Visual Basic 6.0) SharePoint -- Download File

Demonstrates how to download a file from SharePoint located in the /Documents folder.

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

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

'  -------------------------------------------------------------------------
'  The following comments apply to SharePoint Windows classic authentication.
'  -------------------------------------------------------------------------
'  For example, imagine our SharePoint endpoint is https://xyzoffice.mycompany.com/
'  The SHAREPOINT_NTLM_DOMAIN would be "mycompany.com"
'  The SHAREPOINT_HTTPS_DOMAIN would be "xyzoffice.mycompany.com"
'  Also, the SHAREPOINT_USERNAME would be just the name, not a full email address.
'  for example, "chilkat" instead of "chilkat@mycompany.com"

Dim http As New ChilkatHttp

'  If SharePoint Windows classic authentication is used, then set the
'  Login, Password, LoginDomain, and NtlmAuth properties.
http.Login = "SHAREPOINT_USERNAME"
http.Password = "SHAREPOINT_PASSWORD"
http.LoginDomain = "SHAREPOINT_NTLM_DOMAIN"
http.NtlmAuth = 1

'  -------------------------------------------------------------------------
'  The more common case is to use SharePoint Online authentication (via the SPOIDCRL cookie).
'  If so, do not set Login, Password, LoginDomain, and NtlmAuth, and instead
'  establish the cookie as shown at SharePoint Online Authentication
'  -------------------------------------------------------------------------

'  This example downloads the file named "Domain Name created for Exchange.docx"

'  Note: I was initially confused by the "$value" part of the URL.
'  When I see something like $value, I immediately think that it's some sort of
'  variable or placeholder to be replaced with an actual value.  In this case,
'  the "$value" is literally part of the URL.  It's not replace with anything.

Dim url As String
url = "https://SHAREPOINT_HTTPS_DOMAIN/_api/web/GetFolderByServerRelativeUrl('/Documents')/Files('Domain Name created for Exchange.docx')/$value"
Dim localFilePath As String
localFilePath = "qa_output/x.docx"

Dim success As Long
success = http.Download(url,localFilePath)
If (success <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "File successfully downloaded from SharePoint."