Backup()

         Makes a backup

    Syntax:

         Backup( [dDate], [cTime], [cUser], [cUnit], aDir, [lRec], ;
                 [cColor], [bBlock] ) -> lError

         dDate     : Backup date
         cTime     : Backup time
         cUser     : Backup user. 127 more characters
         cUnit     : Backup drive
         aDir      : Bidimensional array of directories to save.
         lRec      : A logical value that indicates if the subdirectories
                     are being backed up.
         cColor    : Color of the statistics window
         bBlock    : A codeblock to evaluate before reading a new disk.

    Description:

         Backups all the given directories.

         WARNING
         This function calls dbCloseAll() so it closes all data base files.

    Return:

         A logical indicating if an error has been found.

    Example:

         If Backup ( Date (), Time (), "FAST.lib", "A:\", ;
                     { { "C:\DOS\",      "*.*"   }, ;
                       { "C:\OS2\MDOS\", "*.COM" } }, ;
                    .T., "N/W,N/W", ;
                    { || NewDisk() } )
           BoxWarning ( "Backup ok" )
         Else
           BoxWarning ( "Errors detected" )
         EndIf

         Function NewDisk ()
             Format ( 0, 4, .F. )    // Format a 3. HD disk in A:
         Return ( .T. )              // It must returns .T.
                                     // If returns .F. cancels the backup