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 = "\\sharepointpath.com\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
   Next
   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!