[Date Index] [Thread Index] [Author Index]

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