(Excel) SharePoint -- Recycle File (Move File to Recycle Bin)

Moves the file to the Recycle Bin and returns the identifier of the new Recycle Bin item.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

'  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 = True

'  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

Dim req As Chilkat.HttpRequest
Set req = Chilkat.NewHttpRequest
req.HttpVerb = "POST"
req.Path = "/_api/web/GetFileByServerRelativeUrl('/ChilkatDocLibrary/sample.docx')/recycle"

'  We must add a form digest value in the X-RequestDigest header field.
'  See this example for details on
'  how to get (and cache) a form digest value
req.AddHeader "X-RequestDigest","SHAREPOINT_FORM_DIGEST"

'  Send the request to move the file to the recycle bin.

bUseTls = True

Set resp = http.SynchronousRequest("SHAREPOINT_HTTPS_DOMAIN",443,bUseTls,req)
If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
Dim success As Boolean
success = xml.LoadXml(resp.BodyStr)

'  A successful response will return the 200 status code.
If (resp.StatusCode <> 200) Then
    Debug.Print "Response status code = "; resp.StatusCode
    Debug.Print xml.GetXml()
    Debug.Print "Failed"

    Exit Sub
End If

'  Show the XML response.
Debug.Print xml.GetXml()

'  The GUID (identifier) of the item in the recycle bin is just the content
'  of the single-node XML that is returned:

guid = xml.Content
Debug.Print "GUID of recycle item = "; guid

Debug.Print "Success."

'  A successful XML response looks like this:

'  <?xml version="1.0" encoding="utf-8" ?>
'  <d:Recycle xmlns:d="http://schemas.microsoft.com/ado/2007/08/dataservices"
'   xmlns:m="http://schemas.microsoft.com/ado/2007/08/dataservices/metadata"
'   xmlns:georss="http://www.georss.org/georss"
'   xmlns:gml="http://www.opengis.net/gml"
'   m:type="Edm.Guid">
'      63b9924d-e9c1-4d7b-b1c2-e921ad85aa1c
'  </d:Recycle>