Open current partprograms folder within PC-DMIS

Feeling generous today, so I thought I'd share this little snippet too.

Save it to your harddrive and link it to an icon on your toolbar in PC-DMIS.
Whenever you click this icon, the folder where your current (active) partprogram reside in, will open.

Great for fast access to the current partprogram folder.

Sub Main()
Dim PCDMIS As Object
Set PCDMIS = CreateObject("PCDLRN.Application")
  rc = Shell("explorer.exe" & " " & PCDMIS.ActivePartProgram.Path, 1)
Set PCDMIS = nothing
End Sub