ディレクトリ内のディレクトリ名を取得する

※サブディレクトリ内は見ない

function get_child_dir ($dir_name) {
    $ary_data = array();

    if (is_dir($dir_name) === False) {
		return $ary_data;
	}

	$obj_dir = dir($dir_name);
	while (True) {
		$tmp_name = $obj_dir->read();
		if ($tmp_name === False) {
			break;
		}

		if (is_dir($dir_name . $tmp_name) !== False) {
			$ary_data[] = $tmp_name;
		}
		unset($tmp_name);
	}
	$obj_dir->close();
	unset($obj_dir);

	sort($ary_data);

	return $ary_data;
}