Save

Purpose: Save a schedule to disk.

Returns: Variant; the handle of the file to which the schedule was saved. If this handle is 0, then the save did not complete.

Argument	Type	Required	Purpose
1	String	No	Complete name of file, including the drive or share name, path, and .MLJ extension.

Notes:

• If the .Save command is issued without passing a filename, Milestones will either just save the file (if it already knows the filename - from the initial GetObject or from a prior .Save) or Milestones will prompt the user for a filename (if it does not already have one).

 

Example: Save a file to the Milestones folder using a specific name.

With objMilestones

    dim mydocfolder as string,myfilename as string

    mydocfolder=.getmydocumentsfolder

    myfilename= mydocfolder + "Test File From VBA.MLP"

nFileHandleVariant = 0

nFileHandleVariant = .Save(myfilename)

nFileHandleInt = nFileHandleVariant

If (nFileHandleInt = 0) Then

  MsgBox "File Save Failed"

End If

End With