Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
strFolder = “C:\Temp”
Fijar el objFolder = fso.GetFolder (el strFolder)
Fijar los objFiles = objFolder.Files
strCount = 0
Para cada uno objFile en objFiles
Si Ucase (dejado (objFile.Name, 3)) = “QUA” entonces
Resultado = DateDiff (“d”, fecha, objFile.DateCreated)
Si resultado = 0 entonces
strCount = strCount + 1
Terminar si
Terminar si
Después
strCount de Wscript.Echo
|