Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

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



  • Prev by Date: More on: Newbie question: big matrix calculations
  • Next by Date: Re: Which version for symbolic calculation, student or full ?
  • Previous by thread: Finding "start directory" with Mathematica 3.0 ?
  • Next by thread: RE: Finding "start directory" with Mathematica 3.0 ?