wincc中vbs脚本编程对我们新手而言多少有些陌生，但是vb相对熟悉一些，那么在一些场合利用VB的强大功能就能弥补vbs的不足。比如，需要在画面中能浏览本地硬盘，需要添加comdialog控件利用VBS脚本写程序，但是VBS脚本中对控件的操作语句或函数我并不知道怎么办呢？其实既然我要添加comdialog控件并且还要编程，那么我为什么不要VB写一个浏览硬盘的“ACTIVEX控件”呢。
可以这样做：
1.打开vb，选择'ACTIVEX控件'。
2.在窗口上放置一个按钮和一个ComDialog控件。
3.双击按钮，写程序：
Private Sub Command1_Click()
On Error GoTo Err_Handle
Dim i As Integer
'i存储空格位置
Dim z As Integer
'z存储查找的起始位置
Dim FileNames() As String
'FileNames存储划分后的文件目录和文件名称
CommonDialog1.FileName = ""
CommonDialog1.Filter = "RTF Files*.*"
CommonDialog1.Flags = cdlOFNAllowMultiselect
'设置CommonDialog1控件属性
CommonDialog1.ShowOpen
'显示打开对话框
CommonDialog1.FileName = CommonDialog1.FileName & Chr(32)
'在CommonDialog1的FileName属性值后面添加空格
For i = 1 To Len(CommonDialog1.FileName)
i = InStr(z, CommonDialog1.FileName, Chr(32))
'设置i为FileName属性值中空格的位置
If i = 0 Then Exit For
ReDim Preserve FileNames(y)
FileNames(y) = Mid(CommonDialog1.FileName, z, i - z)
'将FileName属性以空格作为划分标志
'分成若干部分存储到FileNames数组
z = i + 1
Next
Form1.RichTextBox1.LoadFile (FileNames(0))
Exit Sub
Err_Handle:
MsgBox Err.Des cription
Exit Sub
End Sub
4.生成工程。
5.在wincc画面编辑器里插入一个“插入控件”，选择“注册”，选择刚刚生成的vb工程文件。
到此一个新的硬盘浏览ACTIVEX控件就添加进wincc了。运行时直接点击按钮就可以以文件方式浏览硬盘了。
VBS的功能毕竟比VB少了许多，在组态时我们可以灵活的运用，取长补短，“山不过来，我就过去”能解决问题的办法就是好办法。