I don't have multiple platforms to test it on, but I think this will do
it for you:
ToFileName[{$TopDirectory,"Addons","ExtraPackages","Utilities"},
"Notation.m"]
Bobby Treat
-----Original Message-----
From: Ersek, Ted R [mailto:ErsekTR at navair.navy.mil]
To: mathgroup at smc.vnet.net
Subject: [mg34039] [mg34013] Getting File Directory Using Any Platform
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