Walk a directory/Recursively: Difference between revisions
no edit summary
(→{{header|Erlang}}: Improve) |
MaiconSoft (talk | contribs) No edit summary |
||
Line 764:
dirEntries("", "*.d", SpanMode.breadth).writeln;
}</lang>
=={{header|Delphi}}==
{{libheader| System.IOUtils}}
<lang Delphi>
program Walk_a_directory;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.IOUtils;
var
Files: TArray<string>;
FileName, Directory: string;
begin
Directory := TDirectory.GetCurrentDirectory; // dir = '.', work to
Files := TDirectory.GetFiles(Directory, '*.*', TSearchOption.soAllDirectories);
for FileName in Files do
begin
Writeln(FileName);
end;
Readln;
end.
</lang>
=={{header|E}}==
<lang e>def walkTree(directory, pattern) {
| |||