Extract SharePoint 2007 Item Sizes

#cd /d "C:\Program Files\Common Files\Microsoft Shared\web server extensions\12\BIN"
#stsadm.exe -o enumsites -url "WebAppURL"
[Reflection.Assembly]::LoadFrom("C:\Program Files\Common Files\Microsoft Shared\web server extensions\12\ISAPI\Microsoft.SharePoint.dll")

function Extract-Web ($web)
{
    foreach($subWeb in $web.GetSubwebsForCurrentUser())
    {
        Extract-Web $subWeb
    }

    $webUrl = $web.Url
    foreach($list in $web.Lists)
    {
        $listTitle = $list.Title
        $itemCount = $list.ItemCount
        $lastUpdate = $list.LastItemModifiedDate
        $lastDelete = $list.LastItemDeletedDate
        "LIST`t$webUrl`t$listTitle`t`t`t$itemCount`t$lastUpdate`t$lastDelete"
#       | Export-csv -PAth Export.csv -Append

        foreach ($docItem in $list.Items)
        {
            $docFile = $docItem.File;
            if ($docFile)
            {
                $name = $docFile.Name
                $size = $docFile.Length
                $ver = $docItem.Versions.Count
                $crea = $docFile.TimeCreated
                $upd = $docFile.TimeLastModified
                "DOC`t$webUrl`t$listTitle`t$name`t$size`t$ver`t$crea`t$upd"
            }
        }
    }

    $web.Dispose();
}


$site = New-Object "Microsoft.SharePoint.SPSite" "SPSiteURL"
$rootWeb = $site.RootWeb
$url = $site.Id

Extract-Web $rootWeb > "Export$url.tsv"

$site.Dispose();