Excel VBA .add BASIC_SCRIPT modifiers

Hello

I am trying to use excel vba to add a script to the end of all the programs in a directory. I am stuck on the DmisCommands.Add(BASIC_SCRIPT, True).

Is there a modifier to specify the function/ and a modifier to add ARGs? And if possible where can I look up this information?

Set DmisCommand = DmisCommands.Add(BASIC_SCRIPT, True)
DmisCommand.Marked = True
DmisCommand.ID = "CS998"
retval = DmisCommand.PutText("C:\PC-DMIS\MKDIR.BAS", FILE_NAME, 1)

Parents

vpt.se over 2 years ago

Here's a snippet as well:

ScriptPath = "C:\PROGRAM FILES\JOTUBE2\PCDMIS\FEATUREEXPORT.BAS"
Subname = "ExportAsJoWin"
destfile = PCDPartProgram.Path & "TUBE.TXT"

Set PCDCommand = PCDCommands.Add (BASIC_SCRIPT, True)
PCDCommand.Marked = True
retval = PCDCommand.PutText (ScriptPath, FILE_NAME, 0)
retval = PCDCommand.PutText (Subname, SUB_NAME, 0)
retval = PCDCommand.PutText ("ARG1", DEST_EXPR, 1)
retval = PCDCommand.PutText ("""" & destfile & """", SRC_EXPR, 1)
retval = PCDCommand.SetToggleString (2, SHOW_DETAILS, 0)

PCDCommand.ReDraw

Reply

vpt.se over 2 years ago

Here's a snippet as well:

ScriptPath = "C:\PROGRAM FILES\JOTUBE2\PCDMIS\FEATUREEXPORT.BAS"
Subname = "ExportAsJoWin"
destfile = PCDPartProgram.Path & "TUBE.TXT"

Set PCDCommand = PCDCommands.Add (BASIC_SCRIPT, True)
PCDCommand.Marked = True
retval = PCDCommand.PutText (ScriptPath, FILE_NAME, 0)
retval = PCDCommand.PutText (Subname, SUB_NAME, 0)
retval = PCDCommand.PutText ("ARG1", DEST_EXPR, 1)
retval = PCDCommand.PutText ("""" & destfile & """", SRC_EXPR, 1)
retval = PCDCommand.SetToggleString (2, SHOW_DETAILS, 0)

PCDCommand.ReDraw

Children

No Data