OpenConsole()
PrintN("Kill 1.00 - Deletes the specified file(s)")
PrintN("Freeware / Open source, 2004 by Jan Vorel as helper application for ctConvF")
PrintN("No wildchar support. Written in / compiled with PureBasic")
PrintN("")

xChar1.s = ProgramParameter()
If xChar1 = ""
  PrintN("Usage: Kill <File1> [<File2> [<File3> ...]]")
  Else
  If DeleteFile(xChar1) = 0
    PrintN ("Cannot delete file: " + xChar1)
    EndIf
  Repeat
    xChar1.s = ProgramParameter()
    If xChar1 = ""
      Break
      ElseIf DeleteFile(xChar1) = 0
      PrintN ("Cannot delete file: " + xChar1)
      EndIf
    ForEver
  EndIf
End
; ExecutableFormat=Console
; Executable=D:\VB6\ctConvF\helpers\kill.exe
; EOF