Re: notebook directory
- To: mathgroup at smc.vnet.net
- Subject: [mg61684] Re: notebook directory
- From: Marcus Stollsteimer <marcus314 at yahoo.com>
- Date: Wed, 26 Oct 2005 01:01:38 -0400 (EDT)
- Organization: Comp.Center (RUS), U of Stuttgart, FRG
- References: <djk2a8$h3o$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hannes Kessler wrote:
> its a typical situation that I want to analyze some data files in
> the same directory where the mathematica-notebook is located.
> Is there a possibility to open the notebook and set the current
> working directory in a different way than issuing a manual
> SetDirectory["...\specific_directory"] command?
Hi Hannes,
I use the following function, which is defined in my always loaded
initialization package:
SetDirToNotebookDir::usage=
"SetDirToNotebookDir[] sets the working directory to the directory
of the evaluated notebook.";
SetDirToNotebookDir[]:=Module[{MyNotebookDir},
MyNotebookDir=
DirectoryName@
ToFileName@("FileName"/.NotebookInformation[
EvaluationNotebook[]]/.{"FileName"\[Rule]""});
If[MyNotebookDir\[NotEqual]"",SetDirectory[MyNotebookDir]]
]
hth,
Marcus
--
It is awfully hard work doing nothing. -- Oscar Wilde