Знаете ли вы, что текущая директория в Mathematica (current notebook directory) задается командой

SetDirectory[DirectoryName[ToFileName["FileName"/.NotebookInformation[EvaluationNotebook[]]]]];