.key Dir
.bra {
.ket }

;/*
;** $VER: DelFiles 0.003 (24.03.02) © Gian Maria Calzolari <giangi@gcalzo.net>
;**
;**
;**  FUNCTION:
;**      Deletes only files, leaves the directory tree!
;**
;** $HISTORY:
;**
;** 24 Mar 2002 : 000.003 : Translated into English... :-)
;** 05 Mar 2001 : 000.002 : Added a pause before deleting for real!
;** 20 Nov 1999 : 000.001 : First version
;**
;*/

Echo ""
Echo "Deletes all files from '{Dir}'"
Echo "    and subdirectories but leaves the directory tree!"
Echo ""
Ask "Press Y to continue!"

If Not warn
  Quit
EndIf

If Exists T:DelFiles{$$}.txt
   Delete T:DelFiles{$$}.txt > nil:
EndIf

List "{Dir}" files quick nohead all lformat="Delete >> T:DelFiles{$$}.txt *"%p%n*" Force" > T:Elenco{$$}

Echo ""
Ask "Press Y to execute T:Elenco{$$}!"

If Not warn
  Quit
EndIf

Execute T:Elenco{$$} > Nil:

Delete  T:Elenco{$$} > Nil: