FileSaveWorkspace Method
Saves a list of open files and the current settings in the Options dialog box.
Syntax
expression**.FileSaveWorkspace(Name)**
*expression * Optional. An expression that returns an Application object.
Name Optional String. The name of the file to create. If Name is omitted, Microsoft Office Project 2003 prompts for the file name.
Example
The following example saves the workspace based upon the name of the first project file.
Sub SaveWorkspaceByProjectName()
Dim WSName As String
If InStr(Projects(1).Name, ".") Then
WSName = Left$(Projects(1).Name, Len(Projects(1).Name) - 1) & "W"
Else
WSName = Projects(1).Name & ".MPW"
End If
FileSaveWorkspace WSName
End Sub
Applies to | Application Object
See Also | FileOpen Method | FileSaveAs Method