Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
strFolder = « C:\Temp »
Placer l'objFolder = le fso.GetFolder (le strFolder)
Placer les objFiles = l'objFolder.Files
strCount = 0
Pour chacun objFile dans les objFiles
Si Ucase (laissé (objFile.Name, 3)) = « QUA » puis
Résultat = DateDiff (« d », date, objFile.DateCreated)
Si résultat = 0 puis
strCount = strCount + 1
Finir si
Finir si
Après
strCount de Wscript.Echo
|