MathGroup Archive 2004

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

Search the Archive

printing all notebooks

  • To: mathgroup at
  • Subject: [mg45756] printing all notebooks
  • From: Murray Eisenberg <murray at>
  • Date: Fri, 23 Jan 2004 03:15:47 -0500 (EST)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • Reply-to: murray at
  • Sender: owner-wri-mathgroup at

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


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)?

Murray Eisenberg                     murray at
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305

  • Prev by Date: Re: "Rubbish" integration outputs
  • Next by Date: Re: "Rubbish" integration outputs
  • Previous by thread: Sending Notebooks
  • Next by thread: Re: printing all notebooks