WINCC中如何编写vbs程序可以弹出保存路径对话框，或者另存为对话框

vbs调用保存对话框的方法不止一种，但都依赖于其它组件/控件，我最终测试下来比较好用的（win7 64位系统）是调用sarrcdlg.dll，这个文件可以自行去网上搜
以下代码仅供参考：
------------------------------------------------------------------------------------------------------------
dim objDialog,objFSO,intReturn
dim a,b,c,d,e,f,g,z

''''需要下载和注册SAFRCFileDlg.dll文件
''''-----------------------------------------------------------------------------------------------------
''''以下两行语句存入记事本，并把文件扩展名由txt改为bat，然后双击执行，注意bat文件需要与dll文件在一个目录
''''32位系统注册代码（去掉前面的单引号）
''''Copy /y safrcdlg.dll %windir%\system32\
''''regsvr32/s %windir%\system32\safrcdlg.dll
''''-----------------------------------------------------------------------------------------------------
''''64位系统注册代码（去掉前面的单引号）
''''Copy /y safrcdlg.dll %windir%\SysWOW64
''''regsvr32 %windir%\SysWOW64\safrcdlg.dll
''''-----------------------------------------------------------------------------------------------------

Set objDialog = WScript.CreateObject("SAFRCFileDlg.FileSave")

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

''''文件名和后缀，可酌情修改
a = now()
b = year(a)
c = month(a)
d = day(a)
e = hour(a)
f = minute(a)
g = second(a)
z = b & c & d & e & f & g 
objDialog.FileName = InputBox("文件名称：","文件名",z)

objDialog.FileType = ".xlsx"
intReturn = objDialog.OpenFileSaveDlg

If intReturn Then
 
   objFSO.CreateTextFile objDialog.FileName & objDialog.FileType,True,True
Else
 
   WScript.Quit

End If