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