Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
strFolder = “C:\Temp„
Regolare il objFolder = fso.GetFolder (strFolder)
Regolare i objFiles = objFolder.Files
strCount = 0
Per ciascuno objFile nei objFiles
Se Ucase (lasciato (objFile.Name, 3)) = “QUA„ allora
Risultato = DateDiff (“d„, data, objFile.DateCreated)
Se risultato = 0 allora
strCount = strCount + 1
Concluder se
Concluder se
Dopo
strCount di Wscript.Echo
|