在网上找了一个VBS读取某个文件夹下的所有文件的代码，但读不出来，有谁用过这个功能吗，请指教一下。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Path ='\\s cripts\\'")
For Each objFile in colFiles
Ws cript.Echo objFile.Name
Next

WinCC VBS要求比较严格，变量必须事先声明.

Ws cript.Echo是WSH独有的东西，到WinCC可该为HMIRuntime.Trace

另外就是论坛对s cript这个单词做了一定的处理，需要注意，呵呵。

改造后的代码如下：
Dim strComputer,objWMIService,colFiles,objFile
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path ='\\temp\\tempsub\\' and Drive ='C:'")
For Each objFile In colFiles
HMIRuntime.Trace objFile.Name & vbCrLf
Next