gmailmsn 当前离线
二级士官
apang 当前离线
上将
Set fso = CreateObject("Scripting.FileSystemObject") strDir = "D:\abc" sz1 = fso.GetFolder(strDir).Size Do WScript.Sleep 5000 sz2 = fso.GetFolder(strDir).Size If sz1 <> sz2 Then fso.OpenTextFile("a.log",8,True).WriteLine Now sz1 = sz2 Loop复制代码
TOP