Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
strFolder = „C:\Temp“
Reeks objFolder = fso.GetFolder (strFolder)
Reeks objFiles = objFolder.Files
strCount = 0
Voor elk objFile in objFiles
Als Verlaten Ucase ((objFile.Name, 3)) = „QUA“ toen
Resultaat = DateDiff („D“, Datum, objFile.DateCreated)
Als Resultaat = 0 toen
strCount = strCount + 1
Eind als
Eind als
Daarna
Wscript.Echo strCount
|