Здравствуйте, Arioch2, Вы писали:

А готовые библиотечные функции использовать что, уже некошерно ?

start()->
L1=filelib:fold_files(".","[a-zA-Z0-9_]*",true,fun(X,A)->[{X,filelib:file_size(X)}|A] end,[]),
[io:fwrite("~p~n",[X])||X<-L1],
ok.
выводит такое :

{"./server_root/logs/access_disk_log_8888.1",109709}
{"./server_root/logs/access_disk_log_8888.idx",18}
{"./server_root/logs/access_disk_log_8888.siz",13}
{"./server_root/logs/access_log_8888",109797}
{"./server_root/logs/error_disk_log_8888.1",101211}
{"./server_root/logs/error_disk_log_8888.idx",18}
{"./server_root/logs/error_disk_log_8888.siz",13}
{"./server_root/logs/error_log_8888",101227}
{"./server_root/ssl/ssl_client.pem",1266}
{"./server_root/ssl/ssl_server.pem",1266}

берет подкаталоги и т.д. и т.п.