标签: vbscript
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