Here is an RBase solution to the #puppy weakness. I could turn this into a
Stored procedure that would take arguments for the Title of the Choose and a
list of Drives that would be excluded from the list fairly easy. It took
about 10 min to write this and debug it....
CLS
LABEL bgproc
SET VAR vstring = (CVAL('drives'))
IF vstring = NULL THEN
GOTO ndproc
ENDIF
SET VAR vint INTEGER = 1
SET VAR vchar TEXT
OUTPUT drives.mnu
WRITE 'Title'
WRITE 'POPUP |Choose Drive|'
WHILE vint < (SLEN(.vstring)) THEN
SET VAR vchar = ('|' + (LUC((SGET(.vstring,1,.vint)))) + ':|')
WRITE .vchar
SET VAR vint = (.vint + 1)
ENDWHILE
WRITE 'Endc'
OUTPUT SCREEN
CHOOSE vdrive FROM drives.mnu AT 5,10 CLEAR
LABEL ndproc
CLEAR VAR vchar,vint,vstring
RETURN
----- Original Message -----
From: "randyp" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 04, 2002 7:15 PM
Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
> Mike,
>
> On my machine (CVAL('drives')) gave me the following value:
> CDENs
>
> I was using R:Base 2000 v6.5++ for Windows Build:
> 1.859xRT03.
>
> CHOOSE vDrive FROM Drives.mnu AT 5,10
> presented only C: E: N: S:
>
> Drive D:, the drive I was actually on, was not listed.
>
> Randy Peterson
>
> > Save the following to a file then run it. It will display
> a list of AVAILABLE drives including Network drives.
> >
> > OUTPUT Drives.mnu
> > WRITE 'Available'
> > WRITE 'popup |Choose Drive|'
> > WRITE '#DRIVES'
> > OUTPUT SCREEN
> > CHOOSE vDrive FROM Drives.mnu AT 5,10 CLEAR
>
>
>
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================
> TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
