printing all notebooks
- To: mathgroup at smc.vnet.net
- Subject: [mg45756] printing all notebooks
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Fri, 23 Jan 2004 03:15:47 -0500 (EST)
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- Reply-to: murray at math.umass.edu
- Sender: owner-wri-mathgroup at wolfram.com
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)?
--
Murray Eisenberg murray at math.umass.edu
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
- Follow-Ups:
- Re: printing all notebooks
- From: Andrzej Kozlowski <akoz@mimuw.edu.pl>
- Re: printing all notebooks
- From: Andrzej Kozlowski <akoz@mimuw.edu.pl>
- Re: printing all notebooks