Click above to get retro games delivered to your door ever month!

 twBackUp( cPath, cSourceSpec, cDest, lMsgs, wColor, ;
           wSType, wFType, wFColor, cBColor, cBFColor )
 ----------------------------------------------------------------------------
     Backup files using Clipper low level file functions to produce a
     copy of the files in the specified location. Backups are to
     floppies only. If the floppy contains information it is first
     removed. Files can span diskettes with each diskette having its
     own ID.

       Arguments:

     cPath       - 'C' DOS path to the files to backup.

     cSourceSpec - 'C' DOS filespec of the files to backup.

     cDest       - 'C' Destination for the backup. It must be contained
                       in the string "A:B:".

     lMsgs       - 'L' Logical for displaying messages during the
                       backup. This includes a scrolling list of the
                       files being processed.

     wColor      - 'C' Backup window colour is a Clipper colour string.

     wSType      - 'N' TSDWIN shadow type.

     wFType      - 'N' TSDWIN frame type.

     wFColor     - 'C or A' TSDWIN frame colour.

     cBColor     - 'C' Optional exception colour for the message
                       window. This parameter defaults to wColor.

     cBFColor    - 'C' Optional exception colour for the message
                       window frame. Defaults to wFColor

       Return:

     NIL

       Example:

     FUNCTION main()
     #include "tsdwin.ch"
     LOCAL wColor := "w+/rb,b/w,,gr+/rb,bg+/b", wSType := 3, wFType := 4
     LOCAL wFColor := { "gr+/rb", "w/rb" }, GetList :=  {}
     LOCAL cFileSpec := SPACE( 20 ), cDest := "A:", cPath := SPACE( 60 )
     LOCAL aCheck, lMsgs := .F., nStartTime
     LOCAL amArray := { "Yes", "No", "Maybe" }, nMenuChoice

     twOpen( 2, 0, MAXROW() -1, MAXCOL(),;
                          wColor, wSType, wFType,, wFColor )
     twTitle( "twBackUp Test", "n/w", "T", "C" )
     DO WHILE .T.

         @ twRow( 2 ), twCol( 10 ) SAY "       Path:" ;
                                        GET cPath PICTURE "@!@S25"
         @ twRow( 4 ), twCol( 10 ) SAY "   FileSpec:" ;
                                        GET cFileSpec PICTURE "@!"
         @ twRow( 6 ), twCol( 10 ) SAY "Destination:" ;
                                        GET cDest PICTURE "@!"
         @ twRow( 8 ), twCol( 10 ) SAY "Messages:"
                                        GET lMsgs PICTURE "Y"

         twReadModal( GetList ); GetList := {}

         IF LASTKEY() == K_ESC
             EXIT
         ENDIF

         nStartTime := SECONDS()

         twBackUp( cPath, cFileSpec, cDest, lMsgs, ;
                   "n/bg,gr+/r,,,n/w", 3, 10, { "gr+/bg", "b/bg" } )

         twInfo( "Backup Took: " + ;
               STRINT(( SECONDS() - nStartTime ) / 60 ) + " Minutes" )

     ENDDO

     twPop()
     RETURN NIL