Open current partprogram folder

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Open current partprogram folder

    Code:
    Sub Main()
    Dim PCDMIS As Object
    Set PCDMIS = CreateObject("PCDLRN.Application")
    rc = Shell("explorer.exe" & " " & PCDMIS.ActivePartProgram.Path, 1)
    Set PCDMIS = nothing
    End Sub
    Save this as a .bas file.
    Get a folder icon from the internet.
    Add it to your custom toolbar linking the script and the folder icon.
    When you click it, it will open the current partprograms folder in Explorer.
    Last edited by vpt.se; 08-21-2020, 01:19 AM.
    PC-DMIS CAD++ 2o19 R1 SP10

  • #2
    use the search function they say, this was just what i was looking for. guess i should have needed it 9 years ago.

    Comment


    • #3
      Neat idea. Why was it removed?

      Comment


      • #4
        As a silent protest at the time (user treatment and the state of PC-DMIS). Much have changed since then so I have edited the original post making the script available again.
        PC-DMIS CAD++ 2o19 R1 SP10

        Comment

        Related Topics

        Collapse

        Working...
        X