Monday, November 08, 2010 at 12:01 AM.

---

system.verbs.apps.FinderMenu.backup

local (folder = "Macintosh HD:New Releases:FinderMenu:");
file.surefolder (folder);
local (ctbytes = 0);
if not defined (scratchpad.backupnumber) {
	scratchpad.backupnumber = 1};
on send (name) {
	local (f = folder + name + "." + scratchpad.backupnumber);
	msg ("Exporting \"" + file.filefrompath (f) + "\".");
	export.sendobject (address (name), f);
	ctbytes = ctbytes + file.size (f)};
send ("system.verbs.apps.findermenu");
msg (string.addcommas (ctbytes) + " bytes saved in " + folder + ".");
scratchpad.backupnumber++

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.