The readdir procedure reads a filename from a directory variable (i.e. retrieves the name of the next file in the directory associated with the directory variable). NOTE: Directories are also called folders.
The simple program below opens the current directory and then uses "readdir" to read the names of all the files in the directory, and then finally closes the directory when done.
program listdir(output);
var
d : dir;
fn : filename;
begin
opendir(d, '.'); Open current directory
repeat
readdir(d, fn); Get next file in directory
if fn <> '' then
writeln(fn);
until fn = '';
closedir(d) Close directory
end.
Operating Systems: All
Standard Pascal: No