.版本 2 .子程序 回收站_取文件信息, 回收站信息, , 成功返回数值大小，失败返回负数。 .参数 盘符, 文本型, 可空, 可为空，取默认运行目录 .局部变量 rbinfo, SHQUERYRBINFO .局部变量 result, 整数型 .局部变量 Drive, 文本型 .局部变量 temp, 回收站信息 .局部变量 Viale, 整数型 .局部变量 Long, 整数型 .如果真 (是否为空 (盘符)) 盘符 ＝ 取文本左边 (取运行目录 (), 3) .如果真结束 rbinfo.cbSize ＝ API_GlobalSize (rbinfo) Drive ＝ 选择 (取文本长度 (盘符) ＞ 3, 盘符, 盘符 ＋ “\”) ' 本源码来自三叶资源网(www.sanye.cx) result ＝ 回收站询问_ (Drive, rbinfo) .如果 (位与 (rbinfo.i64NumItems.LowPart, -2147483648) ＝ -2147483648 或 rbinfo.i64NumItems.HighPart ＞ 0) Viale ＝ -2147483647 .否则 Viale ＝ rbinfo.i64NumItems.LowPart .如果结束 .如果 (位与 (rbinfo.i64Size.LowPart, -2147483648) ＝ -2147483648 或 rbinfo.i64Size.HighPart ＞ 0) ' 本源码来自三叶资源网(www.sanye.cx) Long ＝ -2147483647 .否则 Long ＝ rbinfo.i64Size.LowPart ' 显示回收站中的对象占了多少空间 .如果结束 temp.文件个数 ＝ Viale temp.占用空间 ＝ Long 返回 (temp)