Mike
Yes, but we want it to work with simply
CHOOSE vDrive FROM #DRIVES
Without the extra steps!
David Blocker
----- Original Message -----
From: "MikeB" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 04, 2002 10:00 AM
Subject: Re: Database Backup File to Your Choice of Drive - Razzak's Reply
> How soon everyone forgets....
>
> 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
> return
>
> From here down is the complete list of #puppies usable in RBASE. Clip
this
> out and SAVE IT...
>
> *( In R:BASE 3.1, you can choose a file from a list of files when
> )
> *( want to execute a disk function. By using the undocumented
> e )
> *( described in this article, you can add this functionality to
> )
> *( applications. All you need to do is use a special keyword option
> ch )
> *( as #DRIVES, #DIR, or #LFILES in a pop-up or check box menu
> )
> *(
> )
> *( The special options, referred to as pound puppies, make the
> )
> *( dynamic--they pull current information from the computer or from
> )
> *( currently open database as appropriate. Use the following commands
> )
> *( your application to create the dynamic menu, replacing #PUPPY with
> he )
> *( actual option you want to
> )
>
> OUTPUT filename.$$$
> WRITE 'Title'
> WRITE 'POPUP |Choose from this list.|'
> WRITE '#puppy'
> OUTPUT SCREEN
>
> *( After creating the menu, use the CHOOSE command to prompt the user
> )
> *( choose from the list. For example, you might use this
> )
> *(
> )
> CHOOSE vfile FROM filename.$$$ AT 5,10 CLEAR
> *(
> )
> *( If you prefer, you can also create check box menus by changing
> UP )
> *( on the third line to
> )
> *(
> )
> *(
> )
> *(
> )
> *(
> )
> *( This example uses #LFILES to list the files in the current
> rectory: )
> *(
> )
> OUTPUT f.$$$
> WRITE 'Title'
> WRITE 'POPUP |Choose a file.|'
> WRITE '#LFILES'
> OUTPUT SCREEN
> CHOOSE vfile FROM f.$$$ AT 5,10 CLEAR
>
> *( To list files with a specific extension such as .TXT, include
> )
> *( extension following #LFILES, as in this
> )
> *(
> )
> OUTPUT f.$$$
> WRITE 'Title'
> WRITE 'POPUP |Choose a file.|'
> WRITE '#LFILES TXT'
> OUTPUT SCREEN
> CHOOSE vfile FROM f.$$$ AT 5,10 CLEAR
> *(
> )
> *( Include only the extension, not the period (TXT not .TXT). The
> )
> *( names show up in the menu without the extension (MYDOC not
> YDOC.TXT). )
> *(
> )
> *( To enable the user to choose multiple files at the same time, use
> )
> *( check box menu instead of a pop-up menu, as in this
> )
> *(
> )
> OUTPUT f.$$$
> WRITE 'Title'
> WRITE 'CHKBOX |Choose several files.|'
> WRITE '#LFILES'
> OUTPUT SCREEN
> CHOOSE vfile FROM f.$$$ AT 5,10 CLEAR
> *(
> )
> *(
> )
> *( All the
> )
> *(
> )
> *( Here's a complete list of all the pound puppies you can use in
> p-up )
> *( and check box menu
> )
> *(
> )
> *( [] #LFILES--List all the files in the current
> )
> *( [] #LFILES ext--List just the file names (not the extensions)
> )
> *( the files in the current directory that have the
> on )
> *(
> )
> *( [] #DRIVES--List all accessible drives on the computer
> uding )
> *( network drives. The current drive is included in the list
> )
> *( it's gray to prevent the user from choosing
> )
> *( [] #DIR--List all the subdirectories in the current directory
> )
> *( includes an option for Parent Directory if there is one.
> )
> *( current directory is included in the list but it's gray
> )
> *( prevent the user from choosing
> )
> *( [] #TABLES--List all the tables in the currently open
> ase. )
> *( [] #RBASE--List all the R:BASE tables in the currently
> )
> *( database, excluding any dBASE files that may be attached to
> e )
> *(
> )
> *( [] #DBASE--List all the dBASE files that are attached to
> )
> *( currently open R:BASE
> )
> *( [] #COLUMNS IN tblname--List all columns in the specified
> e. )
> *( [] #FORMS--List all the forms in the currently open
> e. )
> *( [] #REPORTS--List all the reports in the currently open
> abase. )
> *( [] #LABELS--List all the labels in the currently open
> ase. )
> *( [] #DATABASE--List all the R:BASE databases in the
> )
> *(
> )
> *( [] #GLOBAL--List all the global variables currently residing
> )
> *(
> )
> *( [] #VIEWS--List all the views in the currently open
> e. )
> *( [] #TBLVIEWS--List all the tables and all the views in
> )
> *( currently open
> )
> *( [] #APP--List all the R:BASE application files with .APX
> xtensions )
> *( in the current
> )
>
> ----- 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/
>
================================================
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/
