MathGroup Archive 2004

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

Search the Archive

Re: printing all notebooks


Use $PathnameSeparator


Bob Hanlon

In article <buqmrq$rcs$1 at smc.vnet.net>, Murray Eisenberg
<murray at math.umass.edu> wrote:

<< Using Mathematica under Windows, the function printDirectoryNotebooks 
defined below prints all the Mathematica notebooks in a user-specified 
directory.  For example:

   printDirectoryNotebooks["e:\\Temp"]

But it does not work using Mac OS-X.  Can you indicate how it should be 
changed so it will be platform-independent?

   printNotebook[nbname_] :=
     Module[{nb = NotebookOpen[nbname]},
       NotebookPrint[nb]; NotebookClose[nb]; nbname]

   printDirectoryNotebooks[dirName_?StringQ] :=
     Module[{dir = SetDirectory[dirName]},
       printNotebook[dir <> "/" <> #] & /@ FileNames["*.nb"]]

In particular -- and I believe this is part of the problem -- how from 
within Mathematica can one determine the path-separator character 
directly (without, say, querying $System and then accordingly select the 
path-separator character)?


  • Prev by Date: Re: printing all notebooks
  • Next by Date: Equation counting in arXiv style sheet
  • Previous by thread: Re: printing all notebooks
  • Next by thread: Re: printing all notebooks