Только что сопоставили папку SharePoint с Z:
Dim f
f = Dir("Z:\")
Do While f <> ""
Debug.Print f
f = Dir()
Loop
Dim fso As Object, fldr, fl
Set fso = CreateObject("scripting.filesystemobject")
Set fldr = fso.getfolder("Z:\")
For Each fl In fldr.Files
Debug.Print fl.Name
Next fl
, оба метода листинга работают нормально.