Not sure I can help much further without being on the computer. But you can skip the SetDirectory and just use the full file path.
SetDirectory[ FileNameJoin[{"C:", "Users", "Bart", "Google Drive", "X-Ray"}]]
I am sure I set it up correctly , it opens the package in that folder.
You can use the full file path.
If you use SetDirectory[] you need to set the directory to the relevant directory. SetDirectory[] on its own set the directory to you home directory which is the same as $HomeDirectory.
Look into NotebookEvaluate:
http://reference.wolfram.com/language/ref/NotebookEvaluate.html
