How can I read a Sharepoint file's tag property using VBA?

I'm trying to read the tag property of files located in a folder on a SharePoint site. I have code that works when using it against local directories. However, once I change those paths to SharePoint directories the code will not work because all of a sudden it acts as if those files don't have tags. Is anyone able to explain this to me please? My code is below:

Dim path As String
Dim FSO As New FileSystemObject
Dim obj_folder As Object
Dim obj_subfolder As Object
Dim subfolders As Object
Dim oDetails As Object
Dim file As Object
Dim lrow As Long
Dim i As Long
Dim x As Long
Dim y As Long
Dim z As Long

path = "\\\somefolder\blah folder\"
Set FSO = CreateObject("Scripting.filesystemobject")
Set obj_folder = FSO.GetFolder(path)
Set subfolders = obj_folder.subfolders
lrow = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row

i = 1
y = 0
z = 0
For x = 1 to 1000000
   For Each obj_subfolder In obj_folder.subfolders
      For Each file In obj_subfolder.FILES
         Set oDetails = GetDetails(file.Path)
         Debug.Print oDetails("Tags")
         If Instr(1, oDetails("Tags"), "EDGE") > 0 Then
            z = z + 1
         End If
      Next file
   Next obj_subfolder
Next x
End Sub
Public Function GetDetails(sPath as String)
   Dim sFolderName As Variant
   Dim sFileName As Variant
   Dim oShell As Object
   Dim oFolder As Object
   Dim oFile As Object
   Dim oDetails As Object
   Dim i As Long
   Dim sName As Variant
   Dim sValue As Variant

   Call SplitFullPath(sPath, sFolderName, sFileName)
   Set oShell = CreateObject("Shell.Application")
   Set oFolder = oShell.Namespace(sFolderName)
   Set oFile = oFolder.ParseName(sFileName)
   Set oDetails = CreateObject("Scripting.Dictionary")

   For i = 0 To 511
      sName = oFolder.GetDetailsOf(oFolder.Items, i)
      sValue = oFolder.GetDetailsOf(oFile, i)
      If sName <> "" And sValue <> "" Then
         oDetails(sName) = sValue
      End If
   Set GetDetails = oDetails
Public Sub SplitFullPath(sPath As String, sFolderName As Variant, sFileName As Variant)
   With CreateObject("Scripting.FileSystemObject")
      If Not .FileExists(sPath) Then
         Exit Sub
      End If
      sFolderName = .GetParentFolderName(sPath)
      sFileName = .GetFileName(sPath)
   End With
End Sub

So when I run this code using a local path my debug shows me the tags for each file as expected. However, when I run this code using a SharePoint path my debug shows me a blank line instead of the file's tags (I'm using the same files in both locations so it should be the same). Can anyone please help? Thanks!