Dim objFSO, objFldr,objFiles, objFile
Dim objDict

strDir="S:\"
Set objDict=CreateObject("Scripting.Dictionary")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFldr=objFSO.GetFolder(strDir)
Set objFiles=objFldr.Files


For Each file In objFiles
    dMod=DateValue(file.DateLastModified)
    iSize=file.Size
    If objDict.Exists(dMod) Then
        iCount=objDict.Item(dMod)
        objDict.Remove(dMod)
        objDict.Add(dMod),iCount+1
    Else
        objDict.Add(dMod),1
    End If
next   

keys=objDict.Keys
For i=0 To objDict.Count-1
    WScript.Echo keys(i) & "," & objDict.Item(keys(i)) 
Next