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/
