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.
