home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol12n13.zip / WIPEDE.BAT < prev   
DOS Batch File  |  1992-12-07  |  1KB  |  45 lines
  1. @ECHO OFF
  2. IF NOT '%2'=='' GOTO NotFirst
  3. IF NOT EXIST %1:\NUL GOTO Syntax
  4. ECHO Now overwriting data belonging to deleted files.
  5. REM "degree" symbol in next line is ASCII character 248.
  6. REM File extension is ASCII characters 243, 236, and 242.
  7. IF NOT EXIST %1:\°?.≤∞≥ GOTO Ready
  8. ECHO Files matching °?.≤∞≥ exist in the directory %1:\
  9. ECHO Delete or move these files before running %0.
  10. GOTO Done
  11.  
  12. :==== Ready ========
  13. ECHO XXXXXXXX> %1:\°1.≤∞≥
  14. SET WipeDelP=1
  15. IF NOT '%WipeDelP%'=='1' GOTO ShortEnv
  16. SET WN=%1:\°%WipeDelP%.≤∞≥
  17. IF NOT '%WN%'=='%1:\°%WipeDelP%.≤∞≥' GOTO ShortEnv
  18. FOR %%v IN (2 3 4 5 6 7 8 9) DO CALL %0 %1 %%v
  19. GOTO CleanUp
  20.  
  21. :===== NotFirst ====
  22. SET WN=%1:\°%WipeDelP%.≤∞≥
  23. IF NOT EXIST %WN% GOTO Done
  24. ECHO Creating %1:\°%2.≤∞≥ from ten copies of %WN%
  25. COPY /B %WN%+%WN%+%WN%+%WN%+%WN%+%WN%+%WN%+%WN%+%WN%+%WN% %1:\°%2.≤∞≥ > NUL
  26. SET WipeDelP=%2
  27. GOTO Done
  28.  
  29. :==== Cleanup =====
  30. DEL %1:\°?.≤∞≥
  31. ECHO Unused areas of %1: have beep wiped.
  32. SET WipeDelP=
  33. SET WN=
  34. GOTO Done
  35.  
  36. :==== ShortEnv ====
  37. ECHO %0 requires approximately 32 bytes of environment space. ECHO Not enough
  38. environment space to run %0.
  39. GOTO Done
  40.  
  41. :==== Syntax ======
  42. ECHO SYNTAX: %0 d
  43. ECHO   where d is the drive letter without colon
  44. :==== Done ========
  45.