'
Dim Jrn
Set Jrn = CrsJournalScript
Dim Fname, filex

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("famList.txt", 1)
  ' Browser Deactivate
  Do While f.AtEndOfStream <> True
    Fname = f.ReadLine
    set filex = fso.getfile(Fname)
    file = filex.name
    upgrade Fname, file
  Loop

  Jrn.Command "Quit the application; prompts to save projects , 57665 , ID_APP_EXIT"


Sub upgrade(namepath, file)

Jrn.Command "Menu", "Open an existing project , 57601 , ID_FILE_OPEN"
  Jrn.Data "File Name" _
          , "IDOK", namepath

Jrn.Command "Menu" , "Save the active project with a new name , 57604 , ID_FILE_SAVE_AS"
  Jrn.Data "File Name"  , "IDOK", namepath

Jrn.Command "Menu" , "Close the active project , 57602 , ID_FILE_CLOSE"

End Sub