例如：在WinCC画面中做一按钮，单击Click后VBS代码如下：
Sub Click(Byval Item)
Dim fso,folder,path
path＝"G:\OS(1)\GraCS"
Set fso = CreateObject("s cripting.FileSystemObject")
If (fso.FolderExists(path)) Then
Set folder=fso.GetFolder(path)
With HMIRuntime.ActiveScreen
path=folder.Files.Item(2).Name
MsgBox pth, ,"消息"
End With
Else
MsgBox("文件夹不存在!")
End If
End Sub
以上VBS脚本中，代码行“path=folder.Files.Item(2).Name”始终不执行。仔细观擦发现：是在获取目录文件夹（即G:\OS(1)\GraCS）中的“Item(2)”索引项文件名称时不执行，感觉是VBS脚本不支持fso对象提供的“Item”属性访问。现求各位能人予以探讨和解决！