>>737
普通に組むしかないかと。まぁ俺が組むならこんな感じかな。

Function GetFolderSize(inF As FolderItem) As Double
dim i , TheCount As integer
dim TheFolderSize As Double
dim TheChildF As FolderItem

if inF.directory then
TheCount = inF.Count
for i = 1 to TheCount
TheChildF = inF.TrueItem(i)
if not TheChildF.Alias then
TheFolderSize = TheFolderSize + GetFolderSize(TheChildF)
end if
next
Return TheFolderSize
else
Return inF.Length + inF.ResourceForkLength
end if
End Function

最近のハードディスクはでかいんで、Doubleじゃないと厳しいな。