Re: Workaround for DIR in VBox

[Harry Binswanger hb@xxxxxxxx]

Carl, 

XYDEC said there are syntax errors in the code. Running U2's SYNTAX, it seems to think there's unbalanced guillemets. Checking the source, there are 2 more >'s than <'s. Is this an actual error?


On Sun, Aug 3, 2014 at 7:56 PM, Carl Distefano mailto:cld@xxxxxxxx wrote:



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_

http://BIGDIR.PM)_[CLD_rev.12/8/13]'^~B',*',_______Usage_BDIR[/switch

es]_[filespec]'^~'BXes_1'Q2'DX~
king...~>',*','^~~>~~
03~>~+~+"/-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',*','^~≪br>
SX06,"@echo_off'^cmd.exe_/c_"+~~>~~
6,~+"_"+~~>~',*','^~+">"+~
02~>+"'^del_"+~+"'^"~>~+"\DIRT0P.BAT"~>'BX

sa_'/06,~'Q2'BXwait'Q2',*','^'BXdos/nv/x/z_/c_~'Q2

'BXwait'Q2',*','^~~'BXexist_~'Q2~
~

~>~'BXp'Q2~',*','^~~
output~>~'^~'BXernv_~'Q2'BXwait'Q2'BXernv_~≪br>
PV03~>'Q2'BXwait'Q2',*','^~~>'BXfunc_#~'Q2

'BXdir/pa_~'Q2'TG'TF'YD'DF'BF'BF'DF'DN~~
M132DI~>~>~',*','^'BXme_~'Q2'BXwait'Q2'BXernv_~≪br>
PV02~>'Q2'BXwait'Q2',*','^'TF~~'BXse_"~J;X;X;X;

X;X;X;X;X_"'Q2~)~>~~'^~'TG'TF~≪br>
PV04~>~~>~~~~~B

'^'^

'%--_XYENCode___end--



--

Carl Distefano

mailto:cld@xxxxxxxx