[Fwd: Notebook Filename]
- To: mathgroup at smc.vnet.net
- Subject: [mg30377] [Fwd: Notebook Filename]
- From: Dan Dill <dan at bu.edu>
- Date: Tue, 14 Aug 2001 03:45:29 -0400 (EDT)
- 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