:: F9 title : Wipe tagged files (prompted)
:: Purpose  : Secure delete tagged files with prompting
:: Submitter: Michael Kahn
::    source: http://www.sysinternals.com/ntw2k/source/sdelete.shtml
::      Note: edit path to the executable (line 35)
::      Note: Requires 4DOS/4NT
::      Note: CO-2U "Brief eXecute command headings" set to "Yes"
::
SET ZTTagged=False
REM #ZTIfTagged SET ZTTagged=True
IF [%%ZTTagged%%]==[False] GOTO Err_NoTag
::
:: The following commands require tagged files
::
REM #ZTTag #ZTTemp\~ZTTag.bat -fCALL #ZTTemp\ZTW_MENU.BAT SUB1 %1
IF "%%1"=="SUB1" GOTO Sub1
CALL #ZTTemp\~ZTTag.bat
DEL/Q #ZTTemp\~ZTTag.bat
PAUSE Press any key to return to Ztree
GOTO End
:Sub1
  :: Sdelete with prompt each tagged file.
  SHIFT
::
SCRPUT 4 0 BRI RED ON BLA  Permanently
SCRPUT 4 12 BRI WHI ON BLA delete %%1?
SCREEN 5 0
DRAWHLINE 5 0 60 1 bri cya on blu
SCREEN 6 0
  ::
  :: Validity test is case insensitive.
  :: Ztree strips 1 "%", so need extra on INKEY variable.
  ::
  INKEY /C/K"yn[Esc][Enter]" Press Y or Enter to delete... %%%_reply
  IFF [%_reply] == [y] .OR. [%_reply] == [@28] THEN
  d:\u\sdelete.exe -p 3 %%1
  SCRPUT 14 0 BRI WHI ON BLA Press any key to goto next tagged file.
  PAUSE >nul
  CLS
  GOTO end
ELSE
  ECHO Deletion aborted.
ENDIFF
  GOTO End
:Err_NoTag
  SCRPUT 1 0 BRI WHI ON BLA This menu item requires tagged files to operate
  SCREEN 2 0
  PAUSE Press any key to return to Ztree
:End