Ustalony fso = CreateObject ("Scripting.FileSystemObject")
strFolder = "C:\Temp"
Ustalony objFolder = fso.GetFolder (strFolder)
Ustalony objFiles = objFolder.Files
strCount = (0)
Dla objFiles objFile w objFiles
Jeżeli Ucase (Opuszczać (objFile.Name, 3)) = "QUA" Wtedy
Rezultat = DateDiff ("D", Data, objFile.DateCreated)
Jeżeli Rezultat = (0) wtedy
strCount = strCount + (1)
Kończyć Jeżeli
Kończyć Jeżeli
Następnie
Wscript.Echo strCount
|