1 of 1 people found this helpful
'1 Know who the user is
Set wsh = CreateObject("WScript.Shell")
'2 Know what project is currently opened
Set pcbDoc = Application.ActiveDocument
'3 Open a specific file in the currently opened project
Set fso = CreateObject("Scripting.FileSystemObject")
filename = pcbDoc.Path & "\Config\Graphics Settings.hkp"
If fso.FileExists(filename) Then
wsh.Run "notepad " & filename
Thank you very much. This is exactly what I needed to move this endeavor along.