Re: path problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg32397] Re: [mg32394] path problem*From*: Roberto Brambilla <rlbrambilla at cesi.it>*Date*: Sat, 19 Jan 2002 01:16:30 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Hi, L.X.Li I have put this 2 functions in the file .../Mathematica/4.1/Configuration/Kernel/init.m ThisNotebookDirectory[] := Block[{info = NotebookInformation[InputNotebook[]]}, If[FreeQ[info, "FileName", {2}], Message[nbdir::nofile]; Directory[],ToFileName[First["FileName" /. info]]]]; Hinc[] := SetDirectory[ThisNotebookDirectory[]]; Then at the beginning of a notebook I put the cell Hinc[] Running it, the active directory becomes the directory where the notebook is, independently where you start the actual Mathematica session (hinc et nunc -> latin for 'Here&Now', also used by german phylosopher M. Hiddegger). Hoping this help you , bye Roberto Roberto Brambilla CESI Via Rubattino 54 20134 Milano tel +39.02.2125.5875 fax +39.02.2125.5492 rlbrambilla at cesi.it