VBScript 脚本打开文件浏览对话框
VBScript 脚本打开文件浏览对话框
scadafaq
个人公众号『ScadaFAQ』，作者：RobinLiu，分享自控scada技术相关内容（在公众号底部菜单查看更多精彩内容）。
分享一个自制bug，使用C++封装支持MFC的COM类库，VBScript脚本中通过简单的调用该库接口的方法，可以打开文件浏览对话框，获得文件的绝对路径和文件名。
库FileBrowse对象的ProgID（PROGrammatic Identifier，程序标识符）为 SCADA. FileBrowse 。
库下载：
https://pan.baidu.com/s/1esmV3FlCd1d1osxtDv4j7w
提取码：nvt8
文件校验信息：
把库文件ScadaFile.dll放到C:WindowsSysWOW64下面，然后以管理员打开CMD使用命令： regsvr32 C:WindowsSysWOW64 ScadaFile.dll ，注册库。
WinCC Professional中VBS脚本示例：获取文件名
Sub OnClick(ByVal item)
Dim filebrowse
Dim filename
Set filebrowse=CreateObject("SCADA.FileBrowse")
filename=filebrowse.GetFileName()
MsgBox filename
Set filebrowse=Nothing
End Sub
获取文件路径：
Sub OnClick(ByVal item)
Dim filebrowse
Dim filepath
Set filebrowse=CreateObject("SCADA.FileBrowse")
filepath=filebrowse.GetFilePath()
MsgBox filepath
Set filebrowse=Nothing
End Sub
- - - 正 文 - - - - - - 结 束 - - -
如果你有与本文相关问题可以留言或后台发消息，欢迎 点分享、收藏、点赞、赏 。