Re: Database Backup File to Your Choice of Drive - Razzak's Reply

[A. Razzak Memon]

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/