Set image directory

If[StringQ[$ImagePath], $path = $ImagePath, $path = "."] ; SetDirectory[$path] ;


Created by Mathematica  (February 5, 2004)