# Clean Windows Directory.mscr
# 2009-03-18
# Chieh Cheng
# http://www.CynosureX.com/

# GNU General Public License (GPL), Version 2, June 1991

  Local ()
  progName = "Save Directory Listing"
  windowsDir = "\Windows"

  ShowWaitCursor ()

  Call ("removeFiles", windowsDir \ "*.dsm")
  Call ("removeFiles", windowsDir \ "*.sqm")
  Call ("removeFiles", windowsDir \ "*.rgu")

  Call ("removeTree", windowsDir \ "SqmTempFiles")
  Call ("removeTree", windowsDir \ "System\SQM\Files")

  HideWaitCursor ()

  Message ("Windows Directory Cleaned Successfully.", progName)

Sub removeFiles
  mask = argv [1]
  Delete (mask)
EndSub

Sub removeTree
  mask = argv [1]
  DelTree (mask)
EndSub