有一个文件夹，里面放着每天向里面拷贝的多个表文件。当这个文件夹达到1GB时就删除早期拷贝进来的表文件，以保正该文件夹不至于过大。
1.求这个文件夹大小？
2.如何删除较早期的表文件？

Function format_size(size)
    On Error Resume Next 'For Log(0)
    sizes = array(" Bytes", " KB", " MB", " GB", " TB", " PB")
    i = Int(Log(size) / Log(1024))
    format_size = Round(size / 1024 ^ i, 2) & sizes(i)
End Function
'Example
Set fso = CreateObject("Scripting.FileSystemObject")
size = fso.GetFolder("D:\Downloads").Size  '查询D:\Downloads 文件夹的大小
WScript.Echo format_size(size)

:: 查询D:\Downloads 文件夹的大小
:: 倒数第2行即是
Dir /a /s D:\Downloads\
Pause

用ADIR()返回文件个数
如：
FOR i=1 TO ADIR(af, "C:\TEMP\*.*")
其中：
文件名 af[i,1]
大小 af[i,2]
最后修改日期 af[i,3]
最后修改时间 af[i,4]
有了这些可以解决问题。

测试了，可行。但连编时，出现错误：未知的 AF - 未定义。
我在代码前加上：dime af(x,y)   出现错误：找不到变量x,y
指点一下。

        dx=0
        FOR i=1 TO ADIR(af, "e:\小精灵数据手动备份\*.*")
        tw=af[i,2]
        dx=dx+tw
        ENDFOR
        thisform.text1.Value=dx/1024/1024
测试正确，连编出现错误：AF未定义。

数组af可由ADIR()创建，由于没事先声明，编译会报异常，“忽略”应该不影响正常运行。
也可以事先声明：
LOCAL af[1]
FOR i=1 TO ADIR(af, "C:\TEMP\*.*")
    ......
ENDFOR

采用了吹水佬的思路，同时感谢红星二锅头。
谢谢！