DTFS

[cld@xxxxxxxx (Carl Distefano)]

Harry et al.:

If you've been using the new U2 frame DTFS (Delete These FileS),
please swap in the corrected version below and discard all previous.
Also below is a Help screen.

XPLeNCODE v2.0
b-gin [UNTITLED]
1) U2 frame - DeFine and issue ADD2U2[cr|lf][cr|lf]{
{;5DTFs*}} "Delete These FileS" (with verification) (Xy4) [CL
D rev. 4/4/05][cr|lf]{002}{<}IF0+{<}VA$WA{>}<1{>}{<}PRNo wind
ow{>}{<}EX{>}{<}EI{>}[BX_]es 1[Q2_]{<}SV01,D{>}{<}SX02,{<}VA@
50{>}{>}{<}IF{<}VA$FR{>}{240}"/"{>}{<}SX01,{<}VA$FR{>}{>}{<}S
X01,{<}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!{<}VA|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 "+{<}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{>}\[Q2_]{<}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{>}+"{0
14}"){240}",{014}"{>}{<}SX03,{<}IS03{>}+",H"{>}{<}EI{>}[BX_]d
sort {<}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_][TF_]{<}EI{>
};*;[cr|lf]{<}IF{<}VA$DE{>}>0{>}{<}SV09{>}[YD_]{<}EI{>}{<}IF{
<}VA|09{>}>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}{<}I
S51{>}<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 Backspac
e Esc{>}{<}SX01,{<}RC{>}{>}{<}SX02,{<}VA$KC{>}{>}{<}IF("|"+{<
}IS02{>}+"|"){238}"|1|14|21|49|"<0{>}{<}PV01{>}{<}GLc{>}{<}EI
{>}[JM_]2.ab/nv[Q2_]{<}IF0+{<}VA$KC{>}<2{>}{<}LBd{>}[YD_]{<}I
F{<}VA|03{>}>0{>}[JM_]2.ab/nv[Q2_];*;[cr|lf]{<}EI{>}{<}PV05{>
}{<}PV04{>}{<}IF{<}VA|08{>}>0{>}[BX_]d xd={<}PV08{>}[Q2_]{<}E
I{>}{<}PRDone{>}{<}EX{>}{<}EI{>};*;[cr|lf]{<}IF{<}VA$KC{>}==1
4!{<}IS01{>}=="[BD_]"{>}[LU_]{<}SV09,[LU_]{>}{<}GLa{>}{<}EI{>
}{<}SV09,[LD_]{>}{<}IF0+{<}VA$KC{>}==21{>}[BX_]ernv {<}PV51{>
}[Q2_]{<}IF{<}ER{>}{>}{<}SX01,{<}VA$ER{>}{>}{<}SX01,"{<}VA\"+
{<}IS01{>}+"{>}"{>}{<}SX01,{<}PV01{>}{>}[BX_]beep[Q2_]{<}PR@0
1{>}[BX_]p[Q2_]{<}EI{>}[BX_]wait[Q2_]{<}GLa{>}{<}EI{>}[LD_]{<
}GLa{>}{<}EI{>}{<}GLd{>}{002}[cr|lf][cr|lf]Help screen - CoPy
 into XYWWWEB.INF (bottom of file is OK)[cr|lf][cr|lf]{dtfs,d
tfs*}[cr|lf][cr|lf]Delete These FileS (with verification) --{032}
C.L. Distefano rev. 4/3/05[cr|lf]Batch-delete utility for XyW
rite 4[cr|lf][cr|lf]Usage:[cr|lf]DTFS[/sort_order] [[d:\path\
]filespec][cr|lf]- Cycles through directory of files
 matching the filespec (earliest dates first, unless sort_ord
er is specified); each file is displayed, with option to dele
te. Use cursor keys to browse file. Press "Y" to delete, "N"{032}
to keep file and move on to{032}
next file in list,  to keep file and go back to pr
evious file in list, or Escape to quit[cr|lf]- sort_order = a
ny spec accepted by DSORT command (default = D, sort by Date,
 earliest first)[cr|lf]{tab}Example (Sort files by Size, larg
est first):[cr|lf]{tab}DTFS/S,R c:\xy4\*.tmp[cr|lf]-
 If DIRectory listing is displayed in current window {<}MDIT{
>}and{<}MDNM{>} no filespec is supplied on CMline, DTFS opera
tes on the current DIRectory display[cr|lf][cr|lf]{<}FC{>}[cr
|lf]Renumber DTFS in PACK Mode[cr|lf]Default Save/Get Range=[
;50-51] 01-09 [cr|lf]OPTIONs: FREEZE 50-55 (to avoid overlap{032}
with range 50-55)[cr|lf]{<}FL{>}[cr|lf]-{tab}-{tab}-{tab}-{ta
b}-{tab}-{tab}-{tab}-{tab}-{tab}-[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx