# dirname.mscr
# 2008-10-02
# Chieh Cheng
# http://www.CynosureX.com/

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

  Local ()
  path = argv [1]
  charIndex = ReverseFind (path, "\")
  directory = SubStr (path, 0, charIndex)
  return (directory)