Re: saving to alternative disk directory

[Carl Distefano cld@xxxxxxxx]

Reply to note from Raphael Tennenbaum  Sun,
08 Nov 2009 14:09:46 -0500

Rafe:

> no matter, I guess, since of course, XYWWWEB has SaveTo, which
> I'm now using contentedly

Ah, I'd forgotten about Robert's SAVETO. It's a gem. Simplicity
itself, if you know some XPL. And you don't need to know much; you
can just copy one or more of the examples from the Help frame into
REG, and mark them up as needed.

> just out of curiosity, is there an option which would work like
> func SL (save all open files) -- allowing the user to *back up*
> all open files to the alternative directory with one keystroke?

Sure, if you feed the right code to SAVETO. Here's an example that
SAves all open files (except bracketed filenames, including
[UNTITLED] files) and backs them up to your W:\XYBAX directory. To
try it, copy the entire block of code below to XYWWWEB.REG *in place
of* your current SAVETO entries. To change the backup directory,
edit the first line only; leave the rest as is.

XPLeNCODE v2.0
b-gin [UNTITLED]
SAveTo.1={<}SV01,w:\xybax{>}[cr|lf]SAveTo.2={<}IF"\?"{238}({<
}IS01{>}+"?")<0{>}{<}SX01,{<}IS01{>}+"\"{>}{<}EI{>}[BX_]exist
 {<}PV01{>}*.*[Q2_]{<}IF{<}ER{>}{>}{<}SV01,{>}{<}EI{>}[cr|lf]
SAveTo.3=[BX_]es 1[Q2_]{<}SX02,{<}VA$WN{>}{>}[DX_]{<}LBa{>}{<
}IF{<}VA$WS{>}==1&{<}VA$MO{>}>0{>}[BX_]sa[Q2_][cr|lf]SAveTo.4
={<}IF{<}VA|01{>}>0{>}{<}SX03,{<}VA$FI{>}{>}{<}IF"]"{238}{<}I
S03{>}<0{>}[BX_]sa/nv {<}PV01{>}{<}PV03{>}[Q2_]{<}EI{>}{<}EI{
{062}}{<}EI{>}[cr|lf]SAveTo.5=[NX_]{<}IF{<}VA$WN{>}<>{<}PV02{>}{>
}{<}GLa{>}{<}EI{>}{<}PRSAved all open files and backed up to{032}
@01{>}[cr|lf]
-nd
XPLeNCODE

Usage (as per the Help frame):
CMline:  SAVETO
KBD file: Assign nn=NOXHJM2,.,S,A,v,e,T,o,Q2 to Save key

--
Carl Distefano
cld@xxxxxxxx