Function DirExists(p$)
Returns true if a directory exists and false if not