SharedWorkspaceFiles Collection

SharedWorkspace SharedWorkspaceFiles
SharedWorkspaceFile

A collection of the SharedWorkspaceFile objects in the current shared workspace.

Using the SharedWorkspaceFiles Collection

Use the Files property of the SharedWorkspace object to return a SharedWorkspaceFiles collection.

        Dim swsFiles As Office.SharedWorkspaceFiles
    Set swsFiles = ActiveWorkbook.SharedWorkspace.Files
    MsgBox "There are " & swsFiles.Count & _
        " file(s)
        vbInformation + vbOKOnly, _
        "Collection Information"
    Set swsFiles = Nothing