523066680

回复 1# yu2n

反过来试了一个稍大的目录：

Test
Sub Test()
	Dim dt1, dt2, dt3
	dt1 = Timer()
	ScanFolder TestDir
	dt2 = Timer()
	ScanFolder2 TestDir
	dt3 = Timer()
	WScript.Echo "FSO Timer: " & (dt2-dt1) & vbCrLf & _
				"WMI Timer: " & (dt3-dt2)
End Sub
复制代码

---------------------------
Windows Script Host
---------------------------
FSO Timer: 4.287109

WMI Timer: 151.8555
---------------------------
确定   
---------------------------