$func Open-Dir e.dirname = s.dir;
$func Close-Dir s.dir = ;
$func? Read-Dir s.dir = e.filename;