vbscript - 如何使用VBScript中的常见“另存为”对话框？

Question

我想让我的VBScript显示“ Windows另存为”对话框，但是我找不到执行该操作的方法。

使用此代码：

Dim sfd
Set sfd = CreateObject("UserAccounts.CommonDialog")
sfd.ShowOpen

我可以获得一个“打开”对话框，但是没有用于该对象的 ShowSave方法（因为在Visual Basic非脚本中似乎有一个类似的对象）。

我搜索了StackOverflow，然后用Google搜索“ [vbscript]保存对话框”（以及“ Windows脚本宿主”），但是我只发现了有关从网页访问常见对话框以及 BrowseForFolder对话框解决方案的线索，而实际上没有关于调用保存对话框。

实际上，我可以使用“打开”对话框，因为我只需要一个文件名...但是我想将某些内容保存到选定的路径，因此对话框标题栏中的“另存为”将更合适。

Answer 1

我可以肯定地说，在不依赖某些必须安装和注册的外部依赖项的情况下，没有解决方案可以在Windows版本（非XP）下从VBScript显示“另存为”对话框。除了在脚本的轻松，拖放式部署方面引起的明显干扰之外，它还带来了许多其他与安全性和权限相关的问题，尤其是绕过客户端计算机上的UAC进行安装并注册一个依赖DLL。
到目前为止，已提出的解决方案依赖于Windows XP附带的DLL文件，从Windows XP的“用户帐户”控制面板调用“另存为”对话框，和/或仅为此安装软件。卸载MSComDlg DLL后留下它，然后可以从VBScript中使用它。正如我在上文中提到的那样，这些解决方案都无法真正满足上述要求，而且所提供的答案都没有考虑到其提议的解决方案可能出现的安全障碍。
而且由于您不能直接从VBScript调用Windows API（它是如此方便地包括“另存为”对话框）（不仅因为这会带来安全风险，而且还因为VBScript的松散[ ？）），几乎让任何人都想这样做。同样，无法进行API调用也排除了使用任何黑客手段，例如调用SetWindowText来更改“打开”对话框的标题，如问题中所建议的那样。
我意识到这不是每个人都想要的答案。这甚至不是我想要的答案。但是，a，这是正确的答案。
话虽这么说，这里有两个可能的解决方法：

如果您打算接受任何已经提出的答案，那么您已经决定在VBScript部署中引入对DLL文件的外部依赖关系。一旦实现了这一飞跃，为什么还要麻烦“借用”或以其他方式劫持DLL？自己做一次。使用Visual Basic 6将Windows API提供的本机通用对话框函数包装到ActiveX DLL中是很简单的，然后您的VBScript可以调用它。风险是最小的，因为可以预期几乎所有现代版本的Windows都已经安装了Visual Basic运行时，并且由于您可能已经了解VBScript，所以在VB 6中编写一些代码并不是一件很困难的事情。您可以包括所需的任何自定义功能，最重要的是，您将受到完全控制。您不必担心其他应用程序的卸载程序会删除脚本所需的DLL，您不必费心安装和卸载某些随机的，已弃用的应用程序，也不必费心指望。我们知道，作为程序员，这绝不是一个好选择。
是的，我建议实际上包装Windows API公开的常用对话框函数，而不要依赖Visual Basic提供的常用对话框OCX（comdlg32.ocx）。它在Windows 7中存在许多问题，并且不会为您提供Windows更高版本现在提供的华丽的新对话框。 available here on VBnet是一篇出色的文章，它解释了您需要了解的有关“打开和保存公共对话框API”以及如何在VB 6中使用它们的所有知识。当然，如果您真的想全力以赴，则可以使用常用对话框完成很多有趣的工作，所有这些对话框均已记录（带有代码！）here on VB Accelerator。

但是，既然我已经使所有人都相信可以在VB 6中编写一个ActiveX DLL，它包装了要在您的VBScript中使用的常见对话框功能，那么我不得不问一个问题：为什么到此为止？一旦实现了在VB 6中编写一些代码的飞跃，为什么不将所有代码都移到VB 6中呢？当然，这是一种“死”语言，但它也不像VBScript那样非常活跃。正如我之前提到的，语法上的差异实际上为零，而VBScript开发人员的学习曲线几乎可以想象到的那么浅。另外，您将获得完整IDE的所有优点，静态类型输入（（略）更好的错误处理）等等。是的，并且能够直接调用Windows API函数。 VBScript的唯一真正好处是它的普遍性，但是距您发现没有安装VB运行时的计算机已有好几年了。更不用说，如果您正在编写需要通用对话框的应用程序，则可能与用户进行了对话：那时，完整VB的表单功能可能会派上用场。但是，选择这种方法的最大，最重要的好处可能是，您无需注册（或包括）外部“卫星” DLL即可—一个简单的VB 6应用程序将仅在具有DLL的任何计算机上运行EXE。已安装VB运行时，至少在Windows 7中已包含。

最后，如果您对从低端的VBScript升级到功能齐全的VB 6感到万分兴奋，我感到无可奈何地不得不另辟throw径：为什么不一直将语言升级到VB这样的语言呢？ 。净？同样，由于有了.NET Framework，VB.NET中提供了各种各样的新功能，但是体面的VB / VBScript开发人员开始用VB.NET编写应用程序应该花了不到几周的时间。 。他们可能不会完全了解.NET Framework，当然也不会开发出良好的面向对象设计实践，但至少它们会朝着正确的方向发展。您几乎可以在VBScript（甚至VB 6）中执行任何操作，也可以在VB.NET中执行。通常，由于.NET Framework所具有的强大功能，它比以前需要的工作量更少。当然，缺点是您的应用程序现在需要在用户计算机上安装.NET Framework，这并不像VB 6运行时那样普遍存在（尽管现在它甚至比几年更普遍）前）。


因此，我听到您说这些不是您希望听到的解决方法？是的，我也没有。我不是那个告诉人们放弃一切并学习一种新语言的人。如果VBScript继续为您工作，那就去吧。但是，如果您正处在其局限性上的紧张状态，那么也许是时候进行跨越了。