Incidently, the Drive #puppy also works in RB7.....
----- Original Message -----
From: "David M. Blocker" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 04, 2002 8:15 AM
Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
> Razzak
>
> You tease, you!! Great idea Randy, great response Razzak! I can't wait!
>
> David Blocker
>
> ----- Original Message -----
> From: "A. Razzak Memon" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, November 03, 2002 10:01 PM
> Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
>
>
> >
> > At 12:02 PM 11/4/2002 +1100, Randy Peterson wrote:
> >
> > >This sounds like choose might be better than a
> > >dialog. That way only valid options will appear for the
> > >user to choose from.
> > >
> > >On my machine (CVAL('drives')) gave me the following
> > >value: CDENs
> > >
> > >You could use string commands to punctuate this list.
> > >
> > >Perhaps you could request from RDCC one of the
> > >following additional commands:
> > >
> > >LIST DRIVES
> > >
> > >CHOOSE varname FROM #DRIVES
> > >
> > >If (CVAL('drives')) returned a comma delimited list,
> > >you could use that in a command like:
> > >
> > >CHOOSE vDrive from #LIST (CVAL('drives'))
> > >
> > >You could then use those results in a choose statement.
> >
> >
> > Randy Peterson, Myron Finegold and Larry Lustig:
> >
> > It would be really COOL if the (CVAL('Drives')) function returns
> > the list of available/mapped drives with a comma delimited list.
> > Similar to (CVAL('Printers')) function in TGRB2000 (ver 6.5++).
> >
> > Then, you could use something like the following:
> >
> > Example 01:
> >
> > -- GetDriveForBackup.RMD
> >
> > CLS
> > SET AUTODROP OFF
> > SET RBGSIZE CENTER CENTER 800 600
> > PAUSE 3 USING 'Searching for Available Drives' CAPTION 'System Backup'
AT
> 14 36
> > SET VAR vTitle TEXT = 'Select Drive For Backup'
> > SET VAR vCaption TEXT = 'Available Drives'
> > SET VAR vDriveList TEXT = (CVAL('Drives'))
> > SET VAR vLines INTEGER = (((SLEN(.vDriveList))/2)+1)
> > SET VAR vDriveToBackup TEXT = NULL
> >
> > CLS
> > CHOOSE vDriveToBackup FROM #LIST .vDriveList AT 12 32 +
> > TITLE .vTitle CAPTION .vCaption LINES .vLines FORMATTED
> > IF vDriveToBackup IS NULL THEN
> > GOTO Done
> > ENDIF
> >
> > -- Check to make sure that drive is accessible and/or ready?
> > SET VAR vDriveReady = (GETVAL('GetDriveReady',.vDriveToBackup))
> > IF vDriveReady = '0' THEN
> > CLS
> > SET VAR vMsg TEXT = ('Selected Drive'&.vDriveToBackup&'is NOT
> Accessible!')
> > PAUSE 2 USING .vMsg CAPTION 'System Backup' AT 14 30
> > GOTO Done
> > ENDIF
> >
> > -- Now, you know that the exact drive letter for backup
> > -- You also know that the drive is ready and/or accessible
> > -- Do what you have to do here ...
> >
> > LABEL Done
> > CLS
> > CLEAR VAR vTitle, vCaption, vLines, vDriveToBackup, vDriveReady, vMsg
> > QUIT TO MainMenu.RMD
> > RETURN
> >
> > It would be NICE if we can use above sample in 6.5++ (Build:1.860xRT03)!
> >
> > Oh WAIT .. I'm sitting here beside the head of the Dream Team (Wayne
> Erickson)
> > and he is giving me a hard time to implement this into the upcoming
inline
> > patch-3.
> >
> > I guess, we'll have to wait for the Final Beta (Release Candidate 3), to
> be
> > released
> > shortly.
> >
> > Very Best Regards,
> >
> > Razzak.
> >
> >
> > ================================================
> > 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/
