The SharedWorkspaceFile object represents a file saved in a shared document workspace.
Remarks
Use the SharedWorkspaceFile object to manage documents and files saved in a shared workspace.
Example
Although the SharedWorkspaceFile object has a URL property that returns the file's complete path and filename, it does not have a FileName property. Use a simple function to extract the filename from the file's URL as in the following example. An additional supporting function decodes escaped space characters in the URL.
| Visual Basic for Applications
|
Private Function FilenameFromURL(FileURL As String) As String Dim intLastSeparator As Integer FileURL = URLDecode(FileURL) intLastSeparator = InStrRev(FileURL, "/") FilenameFromURL = Right(FileURL, Len(FileURL) - intLastSeparator) End Function Private Function URLDecode(URLtoDecode As String) As String URLDecode = Replace(URLtoDecode, "-", " ") End Function
|
Use the Item() property of the SharedWorkspaceFilescollection to return a specific SharedWorkspaceFileobject. Use the CreatedBy, CreatedDate, ModifiedBy, and ModifiedDateproperties to return information about the history of each file. The following example returns the number of files in the shared workspace and information about each file, using the supporting functions shown above.
| Visual Basic for Applications
|
Dim swsFile As Office.SharedWorkspaceFile Dim strFileInfo As String strFileInfo = "The shared workspace contains " & _ ActiveWorkbook.SharedWorkspace.Files.Count & " File(s)." & vbCrLf For Each swsFile In ActiveWorkbook.SharedWorkspace.Files strFileInfo = strFileInfo & FilenameFromURL(swsFile.URL) & vbCrLf & _ " - URL: " & swsFile.URL & vbCrLf & _ " - Created by: " & swsFile.CreatedBy & vbCrLf & _ " - Created on: " & swsFile.CreatedDate & vbCrLf & _ " - Modified by: " & swsFile.ModifiedBy & vbCrLf & _ " - Modified on: " & swsFile.ModifiedDate & vbCrLf Next MsgBox strFileInfo, vbInformation + vbOKOnly, _ "Files in Shared Workspace" Set swsFile = Nothing
|
ofv
See also: