Hey, even us old ducks appreciate an 'AttaBoy'..
Thanks Razaak
----- Original Message -----
From: "A. Razzak Memon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, November 05, 2002 12:11 PM
Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
>
> Mike,
>
> Your solution is simply wonderful!
>
> Thanks for all you do for RBTI and the R:BASE Community.
>
> Your contributions on this Official R:BASE List are greatly appreciated.
>
> And, don't forget your presentation topic for the 2003 R:BASE Developers'
> Conference.
>
> Very Best Regards,
>
> Razzak.
>
>
> At 11:52 AM 11/5/2002 -0500, Mike Byerley wrote:
>
> >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
>
>
> ================================================
> 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/
