Fso = CreateObject („Scripting.FileSystemObject“) einstellen
strFolder = „C:\Temp“
objFolder = fso.GetFolder (strFolder) einstellen
objFiles = objFolder.Files einstellen
strCount = 0
Für jedes objFile in den objFiles
Wenn Ucase (gelassen (objFile.Name, 3)) = „QUA“ dann
Resultat = DateDiff („d“, Datum, objFile.DateCreated)
Wenn Resultat = 0 dann
strCount = strCount + 1
Beenden wenn
Beenden wenn
Zunächst
Wscript.Echo strCount
|