Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
strFolder = “C:\Temp”
Ajustar o objFolder = o fso.GetFolder (o strFolder)
Ajustar objFiles = objFolder.Files
strCount = 0
Para cada um objFile nos objFiles
Se Ucase (deixado (objFile.Name, 3)) = “QUA” então
Resultado = DateDiff (“d”, data, objFile.DateCreated)
Se resultado = 0 então
strCount = strCount + 1
Terminar se
Terminar se
Em seguida
strCount de Wscript.Echo
|