get_all(Path) ->
    {Dirs,Files}=lists:splitwith({filelib,is_dir},filelib:wildcard(filename:join(Path, "*"))),
    [Path|lists:map(fun(X)->{X, filelib:file_size(X)} end, Files)] ++ 
          lists:append(lists:map(fun(X)-> get_all(X) end,Dirs)).

  lists:splitwith(fun({_,_})->true ; (_)->false end, get_all(Path)).