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

    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 Library", "A:\", ;
                     { { "C:\DOS\",      "*.*"   }, ;
                       { "C:\OS2\MDOS\", "*.COM" } }, ;
                    .T., "N/W,N/W", ;
                    { || NuevoDisco() } )
           BoxWarning ( "Backup ok" )
         Else
           BoxWarning ( "uff, errors detected" )
         EndIf

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