Установите fso = CreateObject («Scripting.FileSystemObject»)
strFolder = «C:\Temp»
Установите objFolder = fso.GetFolder (strFolder)
Установите objFiles = objFolder.Files
strCount = 0
Для каждого objFile в objFiles
Если ое Ucase, то ((objFile.Name, 3)) = «QUA» после этого
Результат = DateDiff («d», дата, objFile.DateCreated)
Если результат = 0 после этого
strCount = strCount + 1
Закончитесь если
Закончитесь если
Затем
strCount Wscript.Echo
|