Example 3 - Create and Save Under a New File Name

Summary:

This program starts Milestones Professional, creates a new file, adds a symbol on task rowA horizontal row on the schedule, usually containing the name of a project step and important milestone dates for that step. 1, and then saves the file under file name: "Test File From VBA.MLJ"

Example Code:

Public Sub Example3()

Set objMilestones = CreateObject("Milestones")

With objMilestones

.Activate

.AddSymbol 1, "11/12/2023", 2

nFileHandleVariant = 0

nFileHandleVariant = .Save("c:\myfiles\"+ "Test File From VBG.MLJ")

nFileHandleInt = nFileHandleVariant

If (nFileHandleInt = 0) Then

MsgBox "File Save Failed"

End If

.Refresh

.Close

End With

Exit Sub

End Sub

Notes:

In this example the .CreateObject command causes Milestones to start and create a new schedule.
The path to the Milestones Professional charts folder is obtained from the miles.ini that is created in the Windows folder when Milestones Professional is installed.
The complete path and file name, including the .MLJ file extension must be included on the .Save Command.
Passing a bad file name or path to the .Save command causes Milestones to display an error dialog box.
Visit the KIDASA Software programmer's page for more examples

visit our programmer's page for more examples