批处理怎么监控某个目录，当该目录容量有变化时自动添加记录到log中？

gmailmsn

是否实现这样的批处理效果？

某一个目录 一旦目录中的文件增加或者容量曾大或缩小了，就有一个比如某年某月某日某时  的记录生成  。

apang

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. strDir = "D:\abc"
   
3. sz1 = fso.GetFolder(strDir).Size
   
4. 
   
5. Do
   
6.    WScript.Sleep 5000
   
7.    sz2 = fso.GetFolder(strDir).Size
   
8.    If sz1 <> sz2 Then fso.OpenTextFile("a.log",8,True).WriteLine Now
   
9.    sz1 = sz2
   
10. Loop
    

复制代码