Re: Finding "start directory" with Mathematica 3.0 ?
- To: mathgroup at smc.vnet.net
- Subject: [mg9288] Re: Finding "start directory" with Mathematica 3.0 ?
- From: Peter Buttgereit <nc-buttgepe at netcologne.de>
- Date: Mon, 27 Oct 1997 02:46:59 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Hi Axel, try this In[1]:= NotebookInformation[SelectedNotebook[]] Out[1]= {"FileName"\[Rule]FrontEnd`FileName[{"D:","WINNT","Profiles", "Administrator","Eigene Dateien"}, "test.nb",CharacterEncoding\[Rule]"WindowsANSI"], "FileModificationTime"\[Rule]877706427, "MemoryModificationTime"\[Rule]20539744} In[2]:= pathtoactivenotebook= NotebookInformation[SelectedNotebook[]]//First//Last//First Out[2]= {"D:","WINNT","Profiles","Administrator","Eigene Dateien"} In[3]:= DirectoryListToPath[a_List]:= StringJoin@@Flatten[ {Table[ ToString[a[[i]]]<>$PathnameSeparator, {i,1,Length[a]-1} ], a[[-1]] }] In[4]:= DirectoryListToPath[pathtoactivenotebook] Out[4]= "D:\\WINNT\\Profiles\\Administrator\\Eigene Dateien" Greetings, Peter