Re: Getting File Directory Using Any Platform
- To: mathgroup at smc.vnet.net
- Subject: [mg34024] Re: [mg34013] Getting File Directory Using Any Platform
- From: Andrzej Kozlowski <andrzej at platon.c.u-tokyo.ac.jp>
- Date: Sat, 27 Apr 2002 00:56:27 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
First of all, Macintosh, not Machintosh. Secondly, this will not work on In[1]:= $System Out[1]= Mac OS X And thirdly, why not use simply: In[2]:= ToFileName[$TopDirectory<>"/AddOns/ExtraPackages/Utilities/"] Out[2]= /Applications/Mathematica 4.1.app/AddOns/ExtraPackages/Utilities/ ?? Andrzej Kozlowski Toyama International University JAPAN http://platon.c.u-tokyo.ac.jp/andrzej/ On Friday, April 26, 2002, at 04:27 PM, Ersek, Ted R wrote: > I want a line of code that will return the directory where the Notation > package is located and it should return a result consistent with the > operating system used. If the following doesn't work on your platform > please let me know. I am also interested in any improvements to this > code. > > > In[1]:= > dirs=Which[ > $System==="Microsoft Windows","\\AddOns\\ExtraPackages\\Utilities", > $System==="Machintosh",":AddOns:ExtraPackages:Utilities", > True (* Unix *), "/AddOns/ExtraPackages/Utilities" > ]; > DirectoryName[$TopDirectory<>dirs<>"Notation.m"] > > > Out[1]= > C:\Program Files\Wolfram > Research\Mathematica\4.1\AddOns\ExtraPackages\ > > ------------ > Thanks, > Ted Ersek > Get Mathematica tips, tricks from > http://www.verbeia.com/mathematica/tips/Tricks.html > > > >