Function RemoveDir(p$)
Removes a directory.