ちょっと間違えてる。訂正

function GetDirRegExp(dir, pattern, dir_mode=FALSE, hidden=FALSE, order=0)
  if dir_mode then GetDir(dir, "\", hidden, order) else GetDir(dir, "*", hidden, order)