Automator - Finder - Sort Folder - Print to Textfile with size result

Question

Dear Apple community,
i am trying the following.
1. Find Finder Items
2. Sort Finder Items (by kind:folder)
3. New Text File
This sorts the source folders by size and prints the results in a text file but only the / directory structure but not the folder size. How can i add the "size" information in the text file?
Thanks for your help

Answer 1

The Sort Finder Items action just returns files and folders, but you can use a Run AppleScript action that adds the size information:
1) Ask for Finder Items
2) Sort FInder Items
3) Run AppleScript (I threw in a handler to clean up the formatting a bit):
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px; height: 340px;
color: #000000;
background-color: #FFEE80;
overflow: auto;"
title="this text can be pasted into an Automator 'Run AppleScript' action">
on run {input, parameters}
set the output to {}
repeat with AnItem in the input
set TheSize to FormatSize(get size of (info for AnItem))
set the end of output to (POSIX path of AnItem) & space & space & TheSize
end repeat
return the output
end run
on FormatSize(TheNumber)
formats a number into KB/MB/GB
parameters - TheNumber [real or integer]: the size
returns [text]: the size formatted as  'x KB' or 'x.xx MB/GB'
if the class of TheNumber is in {real, integer} then
set FormattedSize to TheNumber / 1024 -- KB
if FormattedSize > 1024 then
set FormattedSize to FormattedSize / 1024 -- MB
if FormattedSize > 1024 then
set FormattedSize to FormattedSize / 1024 -- GB
set theSuffix to " GB"
else
set theSuffix to " MB"
end if
set FormattedSize to (round (FormattedSize * 100) rounding as taught in school) / 100
else
set theSuffix to " KB"
set FormattedSize to FormattedSize div 1
end if -- FormattedSize > 1024
set TheNumber to (FormattedSize as text) & theSuffix
end if -- the class of TheNumber is in {real, integer}
return TheNumber
end FormatSize</pre>
4) New Text File