

// Script function: Create and write a powerpoint file (GlobalSino Test File.ppt).

// Unless named starting with GlobalSino, EM, My, Self, the function commands are defined 
//by Gatan DM, please see at link: http://www.globalsino.com/EM/page2597.html


String GlobalSinoFileName, EMPowerpint
Number GlobalSinoFileID
If (!SaveAsDialog("Save the file as", GetApplicationDirectory(2,0) + "GlobalSino Test File.ppt", GlobalSinoFileName)) Exit(0)
Result("\n Selected file path:"+GlobalSinoFileName)
GlobalSinoFileID = CreateFileForWriting(GlobalSinoFileName)
WriteFile(GlobalSinoFileID, "This is a test file from GlobalSino.")
CloseFile(GlobalSinoFileID)