FileSaveWorkspace Method

  • Article

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