Copy a file from one sharepoint folder to another using VBA Excel

I wrote the following code with the help of Copilot:

Public Function GetSharepointDigest(strUserName As String, strPassword As String) As String

Dim objHTTP As Object

Dim strUrl As String

Dim strResponse As String

Dim xmlDoc As Object

Dim strFormDigestValue As String

Dim xmlNode As Object



' Initialize variables

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

strUrl = "https://###########.sharepoint.com/_api/contextinfo"



' Create and send the HTTP request

objHTTP.Open "POST", strUrl, False, strUserName, strPassword

objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

objHTTP.send ""



' Get the response

strResponse = objHTTP.responseText



' Load the response into an XML document

Set xmlDoc = CreateObject("MSXML2.DOMDocument")

xmlDoc.async = False

xmlDoc.LoadXML (strResponse)



' Check if the response loaded correctly

If xmlDoc.parseError.ErrorCode <> 0 Then

    MsgBox "Error in XML: " & xmlDoc.parseError.reason

    Exit Function

End If



' Extract the FormDigestValue safely

On Error Resume Next

Set xmlNode = xmlDoc.getElementsByTagName("FormDigestValue")(0)

On Error GoTo 0

If Not xmlNode Is Nothing Then

    strFormDigestValue = xmlNode.Text

    MsgBox "FormDigestValue: " & strFormDigestValue

Else

    MsgBox "FormDigestValue not found in the response."

    Debug.Print strResponse ' Print the response to the Immediate window for debugging

End If



' Extract the FormDigestValue safely

On Error Resume Next

strFormDigestValue = xmlDoc.SelectSingleNode("//d:GetContextWebInformation/d:FormDigestValue").Text

On Error GoTo 0



' Check if the FormDigestValue was successfully retrieved

If Len(strFormDigestValue) > 0 Then

    MsgBox "FormDigestValue: " & strFormDigestValue

Else

    MsgBox "FormDigestValue not found in the response."

End If



GetSharepointDigest = strFormDigestValue

End Function

All I get is an empty response.

Can this even be done or am I on a wild goose chase?