Re: Notebook Filename
- To: mathgroup at smc.vnet.net
- Subject: [mg30353] Re: Notebook Filename
- From: Dan Dill <dan at bu.edu>
- Date: Sat, 11 Aug 2001 03:40:18 -0400 (EDT)
- Organization: Boston University
- References: <9kqjuf$4fp$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This may not be exactly what you want, but here is an abbreviated
example of a scheme I use at the start of a notebook.
CellPrint@
Cell[TextData[{"Notebook name is ",
StringDrop[("FileName" /.
NotebookInformation[SelectedNotebook[]])[[2]], -3],
".nb\nLast updated ", ValueBox["DateLong"], " ",
ValueBox["Time"]}],
"SmallText",
CellFrame -> {{0, 0}, {2, 0}}, CellFrameColor -> RGBColor[0, 0.8,
0],
FontSize -> 8, FontWeight -> "Plain"];
Executing this in a notebook will print its name and its time stamp. I
set the input cell to invisible so in the printed notebook it does not
appear.
Dan