为了计算可能非常大的文件夹的大小，我使用了FileSystemObject.Size:#!perlusestrict;usewarnings;use5.10.0;useFile::Spec;useWin32::OLE;my$_fso;subfolder_size{my($folder)=@_;$_fso=Win32::OLE->new("Scripting.FileSystemObject")unlessdefined$_fso;die"GetFolder$folder:$^E"unlessdefined(my$f=$_fso->GetFolder($folder));my$size=