Workaround for DIR in VBox

["Carl Distefano" cld@xxxxxxxx]

Last year I wrote a U2 frame called BDIR, to work around XyWrite's
inability to display DIRectory listings of a shared drive when
XyWrite is running under VirtualBox. However, since I wasn't running
Xy in a VM then, I couldn't really test it. Now I have, and it seems
to work well. (It works with any drive, not just shared drives -- a
full substitute for the DIR command.)

A nice extra is that BDIR preserves the point-and-shoot capability
of normal XyWrite DIR listings: you can CAll a file, or ChDir to a
directory, by pointing at its name in the BDIR listing.

BDIR accepts DOS DIR command switches args, and, of course,
filespecs. So, for example, BDIR/o-d *.txt lists all .txt
files in reverse date order (newest first).

Frame BDIR is attached to this message (as BDIR.FRM) and encoded
below (XYDEC to decode). Once you import the code into
XyWrite, DeFine the whole thing and issue ADD2U2 to install
it in your U2 file. Feedback welcome.

'%--_XYENCode_start--
{{5bdir*}}_Display_DOS_dir_listings_in_XyWrite_(Win32',_after_
BIGDIR.PM)_[CLD_rev.12/8/13]'^~B',*',_______Usage_BDIR[/switch
es]_[filespec]'^~>0~>'BXes_1'Q2'DX~',*','^~~>~~~+~+"/-n/-p"~>',*','^~<0~>
~
~~~>~~>'JM2.GetPath
'Q2',*','^~+"\DIR.TMP"~>'BXernv_~'Q2'BXwa
it'Q2',*','^~~>~+"'Q2"~>
'BXd_xd=0'Q2',*','^~+"\DIR.T0P"~>'BXernv_~
'Q2'BXwait'Q2~'BXsa_'/06,~'Q2'BXwait'Q2',*','^~<
SX06,"@echo_off'^cmd.exe_/c_"+~~>~>0~>~+"_"+~~>~',*','^~+">"+~+"'^del_"+~+"'^"~>~+"\DIRT0P.BAT"~>'BX
sa_'/06,~'Q2'BXwait'Q2',*','^'BXdos/nv/x/z_/c_~'Q2
'BXwait'Q2',*','^~~'BXexist_~'Q2~~>~'BXp'Q2~',*','^~~~'^~'BXernv_~'Q2'BXwait'Q2'BXernv_~<
PV03~>'Q2'BXwait'Q2',*','^~~>'BXfunc_#~'Q2
'BXdir/pa_~'Q2'TG'TF'YD'DF'BF'BF'DF'DN~~~>~',*','^'BXme_~'Q2'BXwait'Q2'BXernv_~<
PV02~>'Q2'BXwait'Q2',*','^'TF~~'BXse_"~J;X;X;X;
X;X;X;X;X_"'Q2~)~>~~'^~'TG'TF~<
PV04~>~~>~~~~~B
'^'^
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx
Attachment:
BDIR.FRM

Description: Binary data