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.