dim fso
dim fld
dim fle
dim l

set fso = CreateObject("Scripting.FileSystemObject")

set fld = fso.GetSpecialFolder(2)

wscript.echo "Your Temp folder is set to: " & fld.path

sub walk(fld)

    wscript.echo vbCrLf & "Looking in: " & fld.path

    if fld.files.Count > 0 then

        for each fle in fld.files

            wscript.echo vbTab & "Found: " & fle.name

            l = l + fle.size

        next

    else

        wscript.echo vbTab & "No files found"

    end if

    for each fld in fld.SubFolders

        walk(fld)

    next

end sub

walk(fld)

wscript.echo vbCrLf & "The total bytes taken up by your temp files is: " & l