Re: DTFS

[cld@xxxxxxxx (Carl Distefano)]

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

> I get a path not found error when I answer "y" to delete. An
> ampersand appears in the prompt field, and the file isn't
> actually deleted.

Yes, I've begun to see that, too. There's a bug in Editor that
sometimes causes VA$DR to lose the path and wrongly locate files in
the root directory. It happens unpredictably and, when it does,
there's nothing for it except to quit and restart XyWrite. I can
work around it here, though.

> Also, shouldn't it automatically skip any ectories?

Right you are. Now, it does.

> I remain, your gift-horse-in-mouth-looker,

Let me trot it out again:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5DTFs*}} "Delete These FileS" (with verification) [CLD rev
{046}#2 3/31/05][cr|lf]{002};*;[cr|lf];*; Usage: DTFS[/sort_orde
r] [d:\path\filespec][cr|lf];*; Cycles through matc
hing files (earliest dates first)[cr|lf];*;  or through DIR
ectory listing, if displayed in current window[cr|lf];*; Def
ault filespec (no arg, no DIR displayed) = *.*[cr|lf];*; Def
ault 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{>}{<}SX
50,{<}IS03{>}+"\"+{<}IS50{>}{>}{<}EI{>}{<}IF0+{<}VA$WS{>}<2!{
<}VA|02{>}>0{>}[BX_]exist {<}PV50{>}[Q2_]{<}IF{<}ER{>}{>}{<}P
RNo matching files{>}{<}EX{>}{<}EI{>}{<}EI{>}{<}SX04,{<}VA$PA
{>}{>}{<}IF":"{238}{<}IS04{>}=={<}VA|04{>}-1{>}{<}SX04,{<}IS0
4{>}+"\"{>}{<}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":"{2
38}{<}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{>}+"{014}"){240}",{01
4}"{>}{<}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|l
f]{<}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}{<}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{>}{<}SX0
1,{<}RC{>}{>}{<}SX02,{<}VA$KC{>}{>}{<}IF("|"+{<}IS02{>}+"|"){
238}"|1|14|21|49|"<0{>}{<}PV01{>}{<}GLc{>}{<}EI{>}[JM_]2.ab/n
v[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{>}{<}PRDone{
>}{<}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{>}{>}{<}SX01,
{<}VA$ER{>}{>}{<}SX01,"{<}VA\"+{<}IS01{>}+"{>}"{>}{<}SX01,{<}
PV01{>}{>}[BX_]beep[Q2_]{<}PR@01{>}[BX_]p[Q2_]{<}EI{>}[BX_]wa
it[Q2_]{<}EI{>}[LD_]{<}SV09,[LD_]{>}{<}GLa{>}{<}EI{>}{<}GLd{>
}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx