Your Products have been synced, click here to refresh
Sub Main() Dim objFSO, objShell Dim PCDApp, PCDPartProgram, PCDCommands, PCDCommand, retval Dim objFile, objFolder As Object 'Assign PCDMIS Commands, And pulls In the variables Set PCDApp = CreateObject("PCDLRN.Application") Set PCDPartProgram = PCDApp.ActivePartProgram Set PCDCommands = PCDPartProgram.Commands
strDirectory = PCDPartProgram.Path & "\" & "Job Log" strFileName = joname.StringValue [B]strPath[/B] = strDirectory & "/" & strFileName & ".txt"
TO_FILE=ON,APPEND="[B]Z:\Everyone\ChadJ\2014programs\\"+J1.INPUT+"\JOB# "+J1.INPUT+" TIME "+TIME.PDF[/B]
If objFSO.FileExists(strPath) Then Set objFile = objFSO.OpenTextFile(strPath) Else Set objFile = objFSO.CreateTextFile(strPath) Set objFile = objFSO.OpenTextFile(strPath) End If
Sub Main() Dim objFSO, objShell Dim PCDApp, PCDPartProgram, PCDCommands, PCDCommand, retval Dim objFile, objFolder As Object 'Assign PCDMIS Commands, And pulls In the variables Set PCDApp = CreateObject("PCDLRN.Application") Set PCDPartProgram = PCDApp.ActivePartProgram Set PCDCommands = PCDPartProgram.Commands
strDirectory = PCDPartProgram.Path & "\" & "Job Log" strFileName = joname.StringValue [B]strPath[/B] = strDirectory & "/" & strFileName & ".txt"
TO_FILE=ON,APPEND="[B]Z:\Everyone\ChadJ\2014programs\\"+J1.INPUT+"\JOB# "+J1.INPUT+" TIME "+TIME.PDF[/B]
If objFSO.FileExists(strPath) Then Set objFile = objFSO.OpenTextFile(strPath) Else Set objFile = objFSO.CreateTextFile(strPath) Set objFile = objFSO.OpenTextFile(strPath) End If
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |