set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(".")
for each file in folder.files
if lcase(right(file,3))="log" and instr(file.DateLastModified,date)<>0 then s=s & file.name & vbcrlf
next
set file=fso.createtextfile("文件列表.txt")
file.writeline "修改日期为当天的文件"
file.writeline "-------------------------------------------------------"
file.write s
file.close
ws.run "文件列表.txt"