erlang filelib:fold_files(Directory, ".*", true, fun (FileOrDirPath, Acc) -> Worker(FileOrDirPath), Acc end, []).
-module(procdir).
-export([start/0]).
start() ->
Directory = "c:/",
Worker = fun (File) -> io:format("~s~n", [File]) end,
filelib:fold_files(Directory, ".*", true, fun (FileOrDirPath, Acc) -> Worker(FileOrDirPath), Acc end, []).