hexagon logo
Register Sign in
  • Replies 25 replies
  • Subscribers 34 subscribers
  • Views 555 views
  • Users 0 members are here
Options
Related

Using script to create folder for prg and save part program

Rookie
Been reading up on the script manual (PC-DMIS) 3.6 Basic Language Reference Manual) trying to figure out how to get the script to create a folder for the report, the .prg, and any other files associated with the program by serial number of the part.

For example:
PART#_DESCRIPTION_SERIAL#_DATE_TIME

The goal is to write a script contained in the .prg that, upon execution of the part program, will create a folder in a specified directory with the variable filename using the inputs from the part program and save the .prg with the same name.

How would I pass the information from the operator inputs of the part program into the script to make this happen?
Parents
  • Ah, didn't notice it in the code you posted. You are trying to create an object from a string concatenation.

    Try dim'ing the FILENAME, FILEPATH and FOLDER as strings instead.

    Add this to the beginning of your script: 
    Dim FILENAME, FILEPATH, FOLDER As string


    Then just remove the "CREATEOBJECT( .. )" from the FILENAME, FILEPATH and FOLDER definitions.
    Leave the Set FILENAME = "D:........" as is for FILENAME, FOLDER and FILEPATH.

    ...or post the entire script you got so we can edit that directly.
     
    Dim FILENAME, FILEPATH, FOLDER As String

Dim App As Object
Set App = CreateObject("PCDLRN.Application")


    Gives me same error
Reply
  • Ah, didn't notice it in the code you posted. You are trying to create an object from a string concatenation.

    Try dim'ing the FILENAME, FILEPATH and FOLDER as strings instead.

    Add this to the beginning of your script: 
    Dim FILENAME, FILEPATH, FOLDER As string


    Then just remove the "CREATEOBJECT( .. )" from the FILENAME, FILEPATH and FOLDER definitions.
    Leave the Set FILENAME = "D:........" as is for FILENAME, FOLDER and FILEPATH.

    ...or post the entire script you got so we can edit that directly.
     
    Dim FILENAME, FILEPATH, FOLDER As String

Dim App As Object
Set App = CreateObject("PCDLRN.Application")


    Gives me same error
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement