Folders Property
Returns a SharedWorkspaceFolders collection that represents the list of subfolders in the document library associated with the current shared workspace. Read-only.
expression.Folders()
expression Required. An expression that returns a SharedWorkspace object.
Remarks
The SharedWorkspaceFolders collection does not include the root document library folder itself, which by default is named "Shared Documents".
Example
The following example lists the subfolders in the current shared workspace.
Dim swsFolders As Office.SharedWorkspaceFolders
Set swsFolders = ActiveWorkbook.SharedWorkspace.Folders
MsgBox "There are " & swsFolders.Count & _
" folder(s) in the current shared workspace.", _
vbInformation + vbOKOnly, _
"Collection Information"
Set swsFolders = Nothing