Batcher

回复 1# xiongdeqin


test.bat

' 2>nul 3>nul&@echo off&cls
' &start wscript.exe /nologo /e:vbs %0&exit
set objFSO = CreateObject("Scripting.FileSystemObject")
' 结果写入哪个文件
set objDstFile = objFSO.OpenTextFile("C:\Test\To\Result.txt",2,True)
' 获取哪个文件夹下的文件
set objFiles = objFSO.GetFolder("C:\Test\From").Files
for each objFile in objFiles
    objDstFile.Write objFile & " --- " & objFile.DateLastModified & vbcrlf
next
objDstFile.Close
复制代码