home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK5 / DOS_01 / 4DVC31.ZIP / 4DVCBKUP.BTM < prev    next >
Text File  |  1991-01-04  |  1KB  |  49 lines
  1. @echo off
  2. rem
  3. rem This is the entry .BTM file for adding files to an archive. It accepts 1 to
  4. rem n parameters from the 4DVC.BTM entry screen, each of which should be a
  5. rem filename (wildcards accepted).
  6. rem
  7. rem Variables are "cleaned-up" when they are no longer needed. This helps to
  8. rem keep the Environment Space in use to a minimum.
  9. rem
  10. rem Processing goes like this:
  11. rem
  12. rem For each parameter passed,
  13. rem    If a file exists by that name
  14. rem       Concatenate the parameter to Variable VCSPEC
  15. rem If VCSPEC is empty
  16. rem    Issue "no files" message and return to 4DVC.BTM
  17. rem Pass VCSPEC to the 4DOS SELECT statement.
  18. rem For each file the user marks under SELECT, call 4DVCBKP2.BTM
  19. rem
  20.    cls
  21. :TESTPARMS
  22. rem ***** build the file-list for the SELECT statement
  23.    iff "%1" NE "" then
  24.       iff exist %1 then
  25.          iff "%VCSPEC" NE "" then
  26.             set VCSPEC=%VCSPEC+%1
  27.          else
  28.             set VCSPEC=%1
  29.          endiff
  30.       endiff
  31.       shift
  32.       goto TESTPARMS
  33.    endiff
  34. rem ***** See if any files matched the parameters
  35.    iff "%VCSPEC" EQ "" then
  36.       cls
  37.       echo 4DVCBKUP: No files found with extensions provided.
  38.       pause
  39.       goto WRAPUP
  40.    endiff
  41. rem ***** Give SELECT list to user and archive the files SELECTed
  42.    set VCCOM=%_date %_time
  43.    select /Oe call 4DVCBKP2.BTM (%VCSPEC)
  44. :WRAPUP
  45.    set VCCOM=
  46.    set VCSPEC=
  47.    set VCRESP=
  48.    cls
  49.