// 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)