Logo

Programming-Idioms

  • Lisp

Idiom #180 List files in directory

Create the list x containing the contents of the directory d.

x may contain files and subfolders.
No recursive subfolder listing.

#include <filesystem>
#include <ranges>
#include <iostream>
#include <vector>
auto directory_contents(auto path) {
  auto iterator = std::filesystem::directory_iterator(path);
  return std::vector<std::filesystem::path>(
    std::ranges::begin(iterator),
    std::ranges::end(iterator)
  );
}

auto main(int argc, char** argv) -> int {
  auto path = argc >= 2
    ? std::filesystem::path(argv[1])
    : std::filesystem::current_path();

  for (auto entry : directory_contents(path)) {
    std::cout << entry.string() << std::endl;
  }
}
#include <dirent.h>
struct dirent ** x = NULL;
int n = scandir (p, &x, NULL, alphasort);

scandir allocates memory and returns the number of entries. each entry must be free'd. See also opendir, readdir and closedir and ftw for recursive traversal.
New implementation...
< > ⌨
programming-idioms.org 
auto directory_contents(auto path) {
  auto iterator = std::filesystem::directory_iterator(path);
  return std::vector<std::filesystem::path>(
    std::ranges::begin(iterator),
    std::ranges::end(iterator)
  );
}

auto main(int argc, char** argv) -> int {
  auto path = argc >= 2
    ? std::filesystem::path(argv[1])
    : std::filesystem::current_path();

  for (auto entry : directory_contents(path)) {
    std::cout << entry.string() << std::endl;
  }
}
struct dirent ** x = NULL;
int n = scandir (p, &x, NULL, alphasort);
(def x ((comp file-seq clojure.java.io/file) d))
var files = Directory.GetFiles(dirPath);
auto x = dirEntries(d, SpanMode.shallow);

var x = Directory(d).listSync();
x, err := os.ReadDir(d)
do
  x <- listDirectory d
  -- do something with x
const x = fs.readdirSync(d)

String x[] = new File(d).list();
final File directory = new File(d);
final File[] x = directory.listFiles();
$x = scandir($d);
if FindFirst(IncludeTrailingPathDelimiter(d) + '*', 
               faAnyFile and (not faDirectory), SR) = 0 then
repeat
  x.Add(SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);

x := FindAllFiles(d, '*', False);
my @x = map {basename $_} glob("$d/*");
opendir my $dh, $d or die "Could not open $d for reading: $!\n";
@x = readdir $dh;
closedir $dh;
x = os.listdir(d)
x = Dir.children(d)
let x = std::fs::read_dir(d)?.collect::<Result<Vec<_>, _>>()?;
let x = std::fs::read_dir(d).unwrap();