-module(file_size).
-export([file_size/1]).

-include_lib("kernel/include/file.hrl").

file_size(Name) ->
	try file:read_file_info(Name) of
		{ok,Fileinfo} ->
			case Fileinfo#file_info.type of
				regular ->
					io:format("~B~n",[Fileinfo#file_info.size]);
				_ -> ok % except file
			end;
		_ -> ok % cannot get infomation
	catch
		_ -> ok % exception
	end.