Re: DTFS

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from Harry Binswanger  Mon, 28 Mar
2005 11:56:57 -0500

> Yes, DTFS is a helpful thing. One issue: on my system, the
> verification window obscures part of the directory listing.

Yes, well, point taken. Try this version. It splits the screen
horizontally: directory listing on top, file display on bottom.
Also, you can override the frame's built-in sort order (earliest
date first) by specifying a sort spec as part of the command. For
example, to sort files by size, largest first:

DTFS/S,R c:\xy\*.tmp

There are a couple of other enhancements. The number of files
matching the supplied filespec is reported. And you can move
backwards through the directory list by hitting the Backspace key.
Even if you don't want to delete any files, the routine serves
nicely as a browsing utility.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5DTFs*}} "Delete These FileS" (with verification) [CLD rev
{046} 3/31/05][cr|lf]{002};*;[cr|lf];*; Usage: DTFS[/sort_order]
 [d:\path\filespec][cr|lf];*; Cycles through matchi
ng files (earliest dates first)[cr|lf];*;  or through DIRec
tory listing, if displayed in current window[cr|lf];*; Defau
lt filespec (no arg, no DIR displayed) = *.*[cr|lf];*; Defau
lt sort_order = D (sort by Date, earliest first)[cr|lf];*; {032}
 [cr|lf][BX_]es 1[Q2_]{<}SV01,D{>}{<}IF{<}VA$FR{>}{240}"/"{>
}{<}SX01,{<}VA$FR{>}{>}{<}SX01,{<}VA@01/2{>}{>}{<}EI{>}{<}SX0
2,{<}VA@50{>}{>}{<}IF{<}VA|50{>}<1{>}{<}SV50,*.*{>}{<}EI{>}{<
}IF"\"{238}{<}IS50{>}<0&":"{238}{<}IS50{>}<0{>}{<}SX50,{<}VA$
PA{>}+"\"+{<}IS50{>}{>}{<}EI{>}[JM_]2.GetPath[Q2_]{<}SV03,{>}
{<}IF0+{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX
04,0+{<}VA$SW{>}{>}{<}SX05,0+{<}VA$SL{>}{>}{<}SX05,{<}PV05{>}
-9{>}{<}SV06,{>}{<}SV07,{>}{<}IF0+{<}VA$WS{>}<2!{<}VA|02{>}>0
{>}{<}SX02,{<}IS50{>}+"\"+{<}IS51{>}{>}{<}SU07,{<}SX06,{<}VA$
PA{>}{>}{<}IF":"{238}{<}IS06{>}=={<}VA|06{>}-1{>}{<}SX06,{<}I
S06{>}+"\"{>}{<}EI{>}{<}SX06,"[BX_]"+{<}VA@06:1{>}+":[Q2_][BX
_]cd "+{<}IS06{>}+"[Q2_]"{>}{>}{<}GT07{>}{<}SX08,{<}IS06{>}{>
}{<}SV06,{>};*;[cr|lf]{<}SX03,{<}VA@50:1{>}{>}[BX_]{<}PV03{>}
:[Q2_]{<}GT07{>}{<}SV07,{>}[BX_]cd {<}PV50{>}\[Q2_]{<}SV50,{>
};*;[cr|lf][BX_]exist {<}PV02{>}[Q2_]{<}IF{<}ER{>}{>}{<}PRNo{032}
matching files{>}{<}EX{>}{<}EI{>}[BX_]window n,0,0,{<}PV04{>}
,6[Q2_];*;[cr|lf]{<}SX02,{<}VA$SD{>}{>}{<}SX07,{<}VA$XD{>}{>}
{<}IF({<}IS02{>}+"{014}"){240}",{014}"{>}{<}SX02,{<}IS02{>}+"
,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 {<}PV02{>}
[Q2_]{<}SV02,{>}{<}PV06{>}{<}PV08{>}[DO_][FF_]{<}EI{>}{<}SV50
,{>}{<}IF{<}VA$DE{>}>0{>}{<}SV06{>}[YD_]{<}EI{>}[TF_]{<}IF{<}
VA|06{>}>0{>}[BC_]{<}PV06{>}[GT_]{<}EI{>}[DO_][FF_];*;[cr|lf]
{<}LBa{>}{<}SX01,{<}VA$DR{>}{>}{<}IF"___.__"{238}{<}IS01{>}<0
{>}{<}IF{<}VA$XD{>}<1{>}[YD_][DL_][CL_]{<}EI{>}[GT_][DX_]{<}L
Bb{>}{<}IF{<}VA$CY{>}>0{>}[MU_]{<}GLb{>}{<}EI{>}[HM_][DO_][FF
_][BX_]window n,0,6,{<}PV04{>},{<}PV05{>}[Q2_];*;[cr|lf][BX_]
re/100 {<}PV01{>}[Q2_][DO_][FF_]{<}LBc{>}{<}PRDelete this fil
e? y|N Backspace Esc{>}{<}SX02,{<}RC{>}{>}{<}SX06,{<}VA$KC{>
}{>}{<}IF("|"+{<}IS06{>}+"|"){238}"|1|14|21|49|"<0{>}{<}PV02{
>}{<}GLc{>}{<}EI{>}[JM_]2.ab/nv[Q2_]{<}IF0+{<}VA$KC{>}<2{>}{<
}LBd{>}{<}IF{<}VA|03{>}>0{>}[JM_]2.ab/nv[Q2_]{<}EI{>}{<}IF{<}
VA|07{>}>0{>}[BX_]d xd={<}PV07{>}[Q2_]{<}EI{>}{<}PRDone{>}{<}
EX{>}{<}EI{>}{<}IF{<}VA$KC{>}==14!{<}IS02{>}=="[BD_]"{>}[LU_]
{<}GLa{>}{<}EI{>};*;[cr|lf]{<}IF0+{<}VA$KC{>}==21{>}[BX_]ernv
 {<}PV01{>}[Q2_]{<}IF{<}ER{>}{>}{<}SX01,{<}VA$ER{>}{>}{<}SX01
,"{<}VA\"+{<}IS01{>}+"{>}"{>}{<}SX01,{<}PV01{>}{>}[BX_]beep[Q
2_]{<}PR@01{>}[BX_]p[Q2_]{<}EI{>}{<}EI{>}[LD_]{<}GLa{>}{<}EI{
>}{<}GLd{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx