Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
strFolder = ”C:\Temp”,
Fastställd objFolder = fso.GetFolder (strFolder)
Fastställda objFiles = objFolder.Files
strCount = 0
För varje som är objFile i objFiles
Om lämnade, Ucase ((objFile.Name, 3)) = ”QUA” därefter
Resultat = DateDiff (”D”, daterar, objFile.DateCreated),
Om resultat = 0 därefter
strCount = strCount + 1
Avsluta om
Avsluta om
Därefter
Wscript.Echo-strCount
|