Re: DTFS

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from Harry Binswanger  Thu, 31 Mar
2005 12:43:38 -0500

Whoops, there was an error in that last revision. Please discard
it, and use this:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5DTFs*}} "Delete These FileS" (with verification) [CLD rev
{046} 4/1/05][cr|lf]{002};*;[cr|lf];*; Usage:
DTFS[/sort_order]{032}
[d:\path\filespec][cr|lf];*; Cycles through matchin
g files (earliest dates first)[cr|lf];*;  or through DIRect
ory listing, if displayed in current window[cr|lf];*; Defaul
t filespec (no arg, no DIR displayed) = *.*[cr|lf];*; Defaul
t sort_order = D (sort by Date, earliest first)[cr|lf];*;  {032}
 [cr|lf]{<}IF0+{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI
{>}[BX_]es 1[Q2_]{<}SV01,D{>}{<}SX02,{<}VA@50{>}{>}{<}IF{<}VA
$FR{>}{240}"/"{>}{<}SX01,{<}VA$FR{>}{>}{<}SX01,{<}VA@01/2{>}{
>}{<}EI{>}{<}IF{<}VA|50{>}<1{>}{<}SV50,*.*{>}{<}EI{>}{<}IF"\"
{238}{<}IS50{>}<0&":"{238}{<}IS50{>}<0{>}{<}SX03,{<}VA$PA{>}{
>}{<}IF{<}VA$WS{>}>1{>}{<}SX03,{<}VA$DP{>}{>}{<}EI{>}{<}SX50,
{<}IS03{>}+"\"+{<}IS50{>}{>}{<}EI{>}{<}IF0+{<}VA$WS{>}<2!{<}V
A|02{>}>0{>}[BX_]exist {<}PV50{>}[Q2_]{<}IF{<}ER{>}{>}{<}PRNo
 matching files{>}{<}EX{>}{<}EI{>}{<}EI{>}{<}SX04,{<}VA$PA{>}
{>}{<}IF":"{238}{<}IS04{>}=={<}VA|04{>}-1{>}{<}SX04,{<}IS04{>
}+"\"{>}{<}EI{>}{<}SX04,"[BX_]"+{<}VA@04:1{>}+":[Q2_][BX_]cd{032}
"+{<}IS04{>}+"[Q2_]"{>}[JM_]2.GetPath[Q2_]{<}SX03,{<}VA@50:1{
>}{>}[BX_]{<}PV03{>}:[Q2_]{<}SX05,{<}VA$PA{>}{>}{<}IF":"{238}
{<}IS05{>}=={<}VA|05{>}-1{>}{<}SX05,{<}IS05{>}+"\"{>}{<}EI{>}
{<}SX05,"[BX_]cd "+{<}IS05{>}+"[Q2_]"{>}[BX_]cd {<}PV50{>}\[Q
2_]{<}SX06,0+{<}VA$SW{>}{>}{<}SX07,0+{<}VA$SL{>}{>}{<}SX07,{<
}PV07{>}-9{>}{<}SV08,{>};*;[cr|lf]{<}SV03,{>}{<}IF{<}VA$WS{>}
<2{>}[BX_]window n,0,0,{<}PV06{>},6[Q2_]{<}SX03,{<}VA$SD{>}{>
}{<}SX08,{<}VA$XD{>}{>}{<}IF({<}IS03{>}+"{014}"){240}",{014}"
{>}{<}SX03,{<}IS03{>}+",H"{>}{<}EI{>}[BX_]dsort {<}PV01{>}[Q2
_][BX_]d xd=0[Q2_][BX_]dir {<}PV51{>}[Q2_][BX_]se
 "[wN] files"[Q2_]{<}IF@not({<}ER{>}){>}[YD_][DF_][LB_][DF_]{
<}EI{>}[BX_]dsort {<}PV03{>}[Q2_][DO_][FF_]{<}EI{>};*;[cr|lf]
{<}IF{<}VA$DE{>}>0{>}{<}SV09{>}[YD_]{<}EI{>}[TF_]{<}IF{<}VA|0
9{>}>0{>}[BC_]{<}PV09{>}[GT_]{<}EI{>}[DO_][FF_]{<}SV09,[LD_]{
>};*;[cr|lf]{<}LBa{>}{<}SX50,{<}VA$DR{>}{>}[JM_]2.GetPath[Q2_
]{<}IF"___.__"{238}{<}IS51{>}<0&"[cr|lf]"{238}{<}IS51{>}<0{>}
[BX_]exist {<}PV51{>}\*.*[Q2_]{<}IF@not({<}ER{>})!{<}IS51{>}{
240}"["{>}{<}PV09{>}{<}GLa{>}{<}EI{>}{<}IF{<}VA$XD{>}<1{>}[YD
_][DL_][CL_]{<}EI{>}[GT_][DX_]{<}LBb{>}{<}IF{<}VA$CY{>}>0{>}[
MU_]{<}GLb{>}{<}EI{>}[HM_][DO_][FF_][BX_]window n,0,6,{<}PV06
{>},{<}PV07{>}[Q2_];*;[cr|lf][BX_]re/100 {<}PV51{>}[Q2_][DO_]
[FF_]{<}LBc{>}{<}PRDelete this file? y|N Backspace Esc{>}{<}
SX01,{<}RC{>}{>}{<}SX02,{<}VA$KC{>}{>}{<}IF("|"+{<}IS02{>}+"|
"){238}"|1|14|21|49|"<0{>}{<}PV01{>}{<}GLc{>}{<}EI{>}[JM_]2.a
b/nv[Q2_]{<}IF0+{<}VA$KC{>}<2{>}{<}LBd{>}[YD_]{<}IF{<}VA|03{>
}>0{>}[JM_]2.ab/nv[Q2_];*;[cr|lf]{<}EI{>}{<}PV05{>}{<}PV04{>}
{<}IF{<}VA|08{>}>0{>}[BX_]d xd={<}PV08{>}[Q2_]{<}EI{>}{<}PRDo
ne{>}{<}EX{>}{<}EI{>};*;[cr|lf]{<}IF{<}VA$KC{>}==14!{<}IS01{>
}=="[BD_]"{>}[LU_]{<}SV09,[LU_]{>}{<}GLa{>}{<}EI{>}{<}IF0+{<}
VA$KC{>}==21{>}[BX_]ernv {<}PV51{>}[Q2_]{<}IF{<}ER{>}{>}{<}SX
01,{<}VA$ER{>}{>}{<}SX01,"{<}VA\"+{<}IS01{>}+"{>}"{>}{<}SX01,
{<}PV01{>}{>}[BX_]beep[Q2_]{<}PR@01{>}[BX_]p[Q2_]{<}EI{>}[BX_
]wait[Q2_]{<}EI{>}[LD_]{<}SV09,[LD_]{>}{<}GLa{>}{<}EI{>}{<}GL
d{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx