如何创建每天上午12点的新日志文件与当前日期VBScript

Question

strFileName1 = "D:\log.txt"
strContent = "" & Now & Space(2) & dir & vbCr & vbLf

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objLogs = objFS.OpenTextFile(strFileName1, ForAppending, True)

objLogs.WriteLine(strContent)
objLogs.Close