help, auto save .prg after run, in a specific location variable.

I have been looking through all the past topics about this. but I am having trouble getting them working. I tried copy and pasting a few of them. and saving them as a .bas file and running the script. but i cant get one to work for me.

i currently already have a script that auto creates a folder from an operator input and saves the cmm report in that folder.

so ideally i want to follow that same train of thought and save a .prg & .cad in that same folder already created.

please advice.

vpt.se over 6 years ago

Don't know if this will help with the error, but this line is wrong:

strPath = "Q:\Quality\In Process Inspection Plans\ PartNo.StringValue\CMM REPORTS"

Should be:

strPath = "Q:\Quality\In Process Inspection Plans\ " & PartNo.StringValue & "\CMM REPORTS"
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
AndersI over 6 years ago
As I have noted in other posts, the "\" is a special character inside strings and needs to be doubled.
(And as I have also noted, it is special in the forum software... sigh!)

Your

strPath = "Q:\Quality\In Process Inspection Plans\PartNo.StringValue\CMM REPORTS\"

needs to be changed to at least

strPath = "Q:\Quality\In Process Inspection Plans\PartNo.StringValue\CMM REPORTS\\"

but it might be even better to change them all:

strPath = "Q:\\Quality\\In Process Inspection Plans\\PartNo.StringValue\\CMM REPORTS\\"

\" is read by PC-DMIS to mean "insert a quotation mark in the string"
\\ means "insert one \ in the string"
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
dph51 over 6 years ago

Thank you for the great explanation AndersI.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
dph51 over 6 years ago

Thanks for the answer and explanation AndersI.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
dl.melton over 6 years ago

Your help is very much appreciated, gentlemen...unfortunately, after incorporating both suggested changes, I'm still getting "Error on line: 29 - OLE Automation Exception" (Line 29 being "newname = "Q:\Quality\In Process Inspection Plans" & PartNo.StringValue & "\CMM REPORTS\ObjFolder" & PCDPartProgram.PartName & " - " & SerialNo & ".PRG")
. I've looked up information on this error message and haven't been able to find anything that was of any real use in helping me resolve it. I don't know if it's a formatting issue or what exactly I'm looking at here, but it's definitely got me stumped.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

dl.melton over 6 years ago

Thought that I had it here, but no such luck.

newname = "Q:\Quality\In Process Inspection Plans\" & PartNo.StringValue & "\CMM REPORTS\" & ObjFolder & "\" & PCDPartProgram.PartName & " - " & SerialNo & ".PRG"

AndersI over 6 years ago in reply to dl.melton

Did you read my post? You can't end a string with \", it must be \\" (Or was it the forum that removed the doubles?)
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

dl.melton over 6 years ago in reply to dl.melton

So would it need to be like this?

newname = "Q:\Quality\In Process Inspection Plans\" & PartNo.StringValue & "\CMM REPORTS\" & ObjFolder & "\\" & PCDPartProgram.PartName & " - " & SerialNo & ".PRG"

I still get the same error message...

Same with this

newname = "Q:\\Quality\\In Process Inspection Plans\\" & PartNo.StringValue & "\\CMM REPORTS\\" & ObjFolder & "\\" & PCDPartProgram.PartName & " - " & SerialNo & ".PRG"

dl.melton over 6 years ago

I guess I'm not the only one stumped by this...
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
vpt.se over 6 years ago

Scrap the string concatenation and hardcode the path to see if it passes through without errors.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel