Also, here is an RB45 dos thru 65dos that doesn't support (cval('drives'))
CLS
SET MESSAGES OFF
SET ERROR MESSAGES OFF
SET BELL OFF
LABEL bgproc
SET VAR vlookfor = 'abcdefghijklmnopqrstuvwxyz'
SET VAR vstring TEXT
SET VAR vint INTEGER = 1
SET VAR vchar TEXT
SET ERROR VAR verr
SET VAR vholddrive = (SGET((CVAL('dbpath')),2,1))
OUTPUT null.$$$
SET VAR vint = 1
WHILE vint < (SLEN(.vlookfor)) THEN
SET VAR vchar = ((SGET(.vlookfor,1,.vint)) + ':')
&vchar
IF verr = 0 THEN
SET VAR vstring = (.vstring + (SGET(.vchar,1,1)))
ENDIF
SET VAR vint = (.vint + 1)
ENDWHILE
OUTPUT SCREEN
&vholddrive
IF vstring = NULL THEN
GOTO ndproc
ENDIF
SET VAR vstring = (LUC(.vstring))
SET VAR vint INTEGER = 1
OUTPUT drives.mnu
WRITE 'Title'
WRITE 'POPUP |Choose Drive|'
WHILE vint <> ((SLEN(.vstring)) + 1) THEN
SET VAR vchar = ('|' + (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
SET MESSAGES ON
SET ERROR MESSAGES ON
SET BELL ON
CLEAR VAR vchar,vint,vstring,vlookfor,vholddrive
RETURN
----- Original Message -----
From: "MikeB" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, November 05, 2002 10:28 AM
Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
> 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/
>
================================================
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/
