|
J.M.,
I have a WinUdf with Script solution
workaround that will get you the Current Dir. I have added this to the
WinUdf download at my website. www.byerley.net > Bauerlie Development
Corp. > Software > Downlaod & Support > WinUdf.Zip or
directly www.byerley.net/winudf.zip .
----- Original Message -----
Sent: Friday, January 31, 2003 10:19
AM
Subject: [RBASE-L] - Re: RBase Install -
6.5++ 1.863xRT03
At 07:11 AM 1/31/2003 -0500, J.M. GRATIAS wrote:
.....
But there is a problem
with function (CVAL('CURRDIR'))
CHOOSE from a codelocked menu don't
work after calling (CVAL('CURRDIR'))
function.
Dear
J.M.;
We appreciate your continued effort to report discovered issues
in the R:BASE
software. However, at this time, development of the 6.5++
version of R:BASE
is complete.
After investigating your problem, I
discovered that it was specific to Windows 98
and does not happen on
Windows 2000/NT/XP. There is some good news though.
Using the enhanced
CHOOSE command, you can achieve the same results in a
more reliable
manner.
Try the following code sample and see if it doesn't do the
same thing, but in a
different way:
SET var vdbpath TEXT =
NULL
SET var vdrive TEXT = NULL
SET VAR vdbpath =
(CVAL('CURRDIR'))
SET VAR vgetdrives = (CVAL('DRIVES'))
CHOOSE vdrive
FROM #LIST .vgetdrives
PAUSE 2 USING 'After
CHOOSE'
RETURN
The previously mentioned code will give you the
drives with case sensitivity. All
removable drives will be lower case and
permanent drives are upper case.
To replicate the EXACT look of your
original code using all upper case letters,
you would use the following
code (note that the only thing that changed was the
addition of the LUC
function to the vgetdrives variable):
SET var vdbpath TEXT =
NULL
SET var vdrive TEXT = NULL
SET VAR vdbpath =
(CVAL('CURRDIR'))
SET VAR vgetdrives = (LUC((CVAL('DRIVES'))))
CHOOSE
vdrive FROM #LIST .vgetdrives
PAUSE 2 USING 'After
CHOOSE'
RETURN
I hope this resolves this issue for you. You can
see that it is a very simple
change of logic. Please also keep in mind
that as Windows 98 becomes more
obsolete, there may be some items that will
work differently because we are
working hard to keep R:BASE at the front of
technological advances, and
sometimes that means not all features will be
completely backwards compatible.
Best Regards,
Mike Willochell
|
