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

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

  Local ()
  plugInName = "Save Directory Listing"
  selection = argv [1]
  Outfile = selection \ "PowerExplorerDirectoryListing.txt"

  ShowWait Cursor ()
  WriteFile (outfile, "Directory listing for " & selection & "^CR^^LF^^CR^^LF^", false)

  ForEach dir in directories (selection \ "*")
    WriteFile (outfile, dir & "\" & "^CR^^LF^", true)
#    Message (dir, plugInName)
  EndForEach

  ForEach file in files (selection  \ "*")
    WriteFile (outfile, file & "^CR^^LF^", true)
#    Message (file, plugInName)
  EndForEach

  HideWaitCursor ()
  Message ("Directory listing saved to " & outfile, plugInName)