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

Posted 2021-04-19

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了如何使用VBScript中的常用“另存为”对话框？相关的知识，希望对你有一定的参考价值。

我想让我的VBScript显示Windows另存为对话框，但我找不到如何做到这一点。

使用此代码：

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

我可以得到一个Open对话框，但是这个对象没有ShowSave方法（因为在Visual Basic非脚本中似乎有类似的对象）。

我搜索了StackOverflow并搜索了“[vbscript] save dialog”（以及“Windows Script Host”），但我只找到了关于从网页访问常用对话框的线程和BrowseForFolder对话框的解决方案，并没有真正关于调用Save对话框的内容。

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

答案

我可以明确地说，没有解决方案在Windows以外的Windows版本下显示VBScript的“另存为”对话框，而不依赖于您必须安装和注册的某些外部依赖项。除了这对于脚本的简单拖放部署造成的明显干扰外，它还会带来一系列与安全性和权限相关的其他问题，特别是在客户端的计算机上绕过UAC进行安装并注册一个依赖DLL。

到目前为止，已经提出的解决方案依赖于刚刚恰好包含在Windows XP中的DLL文件，从Windows XP的用户帐户控制面板调用“另存为”对话框，和/或仅为其安装一个软件。在卸载之后留下MSComDlg DLL，然后您可以使用VBScript。这些解决方案都没有真正满足上述要求，并且所提供的答案都没有考虑到他们提出的解决方案可能出现的安全障碍，正如我在上面提到的那样。

而且因为你不能直接从VBScript直接调用Windows API（它只是方便地包含这样的另存为对话框）（不仅因为它会带来安全风险，而且还因为VBScript的松散[缺乏] ？]打字），几乎让任何想要在寒冷中做到这一点的人。同样，无法进行API调用也排除了使用任何黑客攻击，如调用SetWindowText来更改Open对话框的标题，如问题所示。

我意识到这不是每个人都想要的答案。它甚至不是我想要的答案。但唉，这是正确的答案。

话虽如此，这里有几个可能的解决方法：

如果您倾向于接受已经建议的任何答案，那么您已经决定将DLL文件的外部依赖性引入到VBScript部署中。一旦你实现了这一飞跃，为什么还要“借用”或以其他方式劫持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现在提供的华丽的新对话框。一篇优秀的文章解释了您需要了解的有关Open和Save Common Dialog API以及如何在VB 6中使用它们的所有信息，这些文章是available here on VBnet。当然，如果你真的想全力以赴，那么你可以用常见的对话框做很多有趣的事情，所有这些都记录在案（包括代码！）here on VB Accelerator。
但是现在我已经让你们都相信在VB 6中编写了一个ActiveX DLL，它包含了在你的VBScript中使用的常用对话框功能，我不得不问一个问题：为什么要停在那里？一旦你在VB 6中编写了一些代码，为什么不将所有代码都移到VB 6中呢？当然，这是一种“死”的语言，但它并不像VBScript非常活跃。正如我之前提到的，语法差异几乎为零，VBScript开发人员的学习曲线与人们预期的一样浅。此外，您可以获得完整IDE，静态类型，（稍微）更好的错误处理的所有好处，等等等等。哦是的，能够直接调用Windows API函数。 VBScript唯一真正的好处是它无处不在，但是你可以找到没有安装VB运行时的计算机已经好几年了。更不用说，如果您正在编写需要通用对话框的应用程序，那么您可能正在与用户进行对话：完整VB的表单功能可能在此时开始派上用场。但是，选择这条路线的最大和最重要的优势可能就是你不需要注册（或包含）一个外部“卫星”DLL - 一个简单的VB 6应用程序只能在任何拥有它的计算机上运行EXE。 VB运行时安装，至少包含在Windows 7中。
最后，如果你对从低级VBScript升级到功能齐全的VB 6感到非常兴奋，我觉得不得不把另一个问题放到这个等式中：为什么不一直向上移动到像VB这样的语言。净？再次，得益于.NET Framework，VB.NET提供了各种新功能，但是对于一个体面的VB / VBScript开发人员来说，开始在VB.NET中编写应用程序感觉很舒服不应该花费几周时间。。他们可能不会完全理解.NET Framework，他们肯定不会开发出良好的面向对象设计实践，但至少他们会朝着正确的方向前进。几乎所有你可以在VBScript（甚至VB 6）中做的事情都可以在VB.NET中完成。通常，由于.NET Framework提供了巨大的功能，它需要比以前更少的大惊小怪。当然，缺点是您的应用程序现在需要在用户的计算机上安装.NET Framework，这不像VB 6运行时那么普遍（尽管它现在比仅仅几年更常见）前）。

所以我听到你说那些不是你希望听到的变通方法？是的，我也不是。我不是那个告诉人们放弃一切并学习新语言的人。如果VBScript继续为你工作，那就去吧。但是，如果你正处于开始对其局限性产生压力的那一刻，那么可能是时候实现这一目标了。

另一答案

使用VBScript（或VBA或JScript）的公共对话框的秘诀在于您必须在计算机上安装其许可证。某些开发工具（如Visual Basic 6）将安装许可证，但它也由免费的Microsoft html帮助编辑器安装（这是一个非常古老的应用程序）。有趣的是，如果您安装然后卸载HTML帮助编辑器，它将保留通用对话许可证。出于这个原因，我认为许可证是免费提供的，因此它将在我的答案中包含它创建的注册表项：

在HKLMSoftwareCLASSESLicenses4D553650-6ABE-11cf-8ADB-00AA00C00905，将(Default)条目设置为gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj。

一旦到位，您可以使用以下代码在VBScript中创建这些对话框：

Set objDialog = CreateObject("MSComDlg.CommonDialog")

要启动文件保存对话框，请使用此代码中的ShowSave方法：

objDialog.ShowSave

当然，此对象有许多其他方法和属性，您可能希望在启动对话框之前配置适当的属性。例如，您可以设置文件筛选器，以便只在对话框中显示某些文件扩展名。这里有一个很好的参考MSDN网站上的控件：http://msdn.microsoft.com/en-us/library/aa259661%28v=vs.60%29.aspx。

希望这可以帮助。如果您有任何疑问，请告诉我。

另一答案

如果您对将要部署它的系统有一定程度的控制，并且可以合理地确定它们安装了Visual Studio或Microsoft HTML帮助，则可以使用如下代码：

function filedialog(filt, def, title, save)
    set dialog = CreateObject("MSComDlg.CommonDialog")
    dialog.MaxFileSize = 256
    if filt = "" then
        dialog.Filter = "All Files (*.*)|*.*"
    else
        dialog.Filter = filt
    end if
    dialog.FilterIndex = 1
    dialog.DialogTitle = title
    dialog.InitDir = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    dialog.FileName = ""
    if save = true then
        dialog.DefaultExt = def
        dialog.Flags = &H800 + &H4
        discard = dialog.ShowSave()
    else
        dialog.Flags = &H1000 + &H4 + &H800
        discard = dialog.ShowOpen()
    end if
    filedialog = dialog.FileName
end function

此外，将此问题的其他答案之一调整为VBScript代码（感谢@oddacorn！），如果您不能确定您的用户将拥有VS或HTML帮助，则应添加此功能。在程序启动时调用此函数。如果你已经有钥匙，不要担心;在这种情况下，这没有任何效果。这应该适用于没有管理员权限的标准用户帐户。

'Make the MSComDlg.CommonDialog class available for use. Required for filedialog function.
function registerComDlg
    Set objRegistry = GetObject("winmgmts:\.
ootdefault:StdRegProv")
    objRegistry.CreateKey &H80000001, "SoftwareCLASSESLicenses4D553650-6ABE-11cf-8ADB-00AA00C00905"
    objRegistry.SetStringValue &H80000001, "SoftwareCLASSESLicenses4D553650-6ABE-11cf-8ADB-00AA00C00905", "", "gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"
end function

请注意，我在HTML here中修改了VBScript代码的“查看源”中的filedialog函数;在现代Web浏览器上，它们用于呈现代码示例的HTML似乎无法正确显示（在IE 8和Chrome上测试）。但幸运的是，代码仍然存在于View Source中。

我发现有一件事对于在Windows 7上完成这项工作至关重要（SP1，完全打补丁）;你必须设置dialog.MaxFileSize = 256或者你会得到一个运行时错误。

也就是说，以下代码在Windows 7 SP1上失败，但可能适用于旧版本的Windows：

Set x = CreateObject("MSComDlg.CommonDialog")
x.ShowSave

另一答案

在http://blogs.msdn.com/b/gstemp/archive/2004/02/18/75600.aspx上有一种方法描述了如何从VBScript显示另存为对话框。

请注意，根据http://www.eggheadcafe.com/software/aspnet/29155097/safrcfiledlg-has-been-deprecated-by-microsoft.aspx，SAFRCFileDlg已被Microsoft弃用。

另一答案

我刚刚创建了一个shell，将它链接到一个asp网站，让网站读取一个方向标记 - 我将文件位置加载到，并且asp页面立即在该文件位置打开文件对话框，文件名也通过方向标签。保存后，shell就会消失。

如果它是网站direcitonal标签的限制，即（blah.com/temp.aspx?x=0&y=2&z=3）

将信息存储在SQL数据库或平面文件中，有大量的解决方法，但上面说的是真的。 VBS不会在内部削减它。

另一答案

寻找年龄后，我在jsware.net找到了jsShell - Shell Component。该zip文件包含jsShell.dll 176 kB，一个用于注册dll的vbscript，基本上是regsvr32.exe jsShell.dll，演示脚本和清晰的文档。

该DLL在Windows 7中运行良好，并提供了一些有用的方法，包括打开/保存对话框：

Dim jsS, sFileName
jsS = CreateObject("jsShell.Ops")
' Save as dialog
sFileName = jsS.SaveDlg("<title>", "exe") ' Example: Filter by exe files
sFileName = jsS.SaveDlg("<title>", "")    ' Example: No extension filter
' Open dialog
' Example: Filter by exe, initial dir at C:
sFileName = jsS.OpenDlg("<title>", "exe", "C:")

如果未选择任何文件，则sFileName为空字符串。

另一答案

Private Sub cmdB1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdB1.Click
    Dim objExec, strMSHTA, wshShell, SelectFile

    SelectFile = ""

    ' For use in HTAs as well as "plain" VBScript:
    strMSHTA = "mshta.exe ""about:" & "<" & "input type=file id=FILE>" _
             & "<" & "script>FILE.click();new ActiveXObject('Scripting.FileSystemObject')" _
             & ".GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);" & "<" & "/script>"""

    wshShell = CreateObject("WScript.Shell")
    objExec = wshShell.Exec(strMSHTA)

  以上是关于如何使用VBScript中的常用“另存为”对话框？的主要内容，如果未能解决你的问题，请参考以下文章 
 vbscript [将工作表另存为XLSX]将Excel文件中的所有工作表另存为单独的XLSX文件。 #Excel
 如何在 Windows 上使用 GetSaveFileName 检测“另存为类型：”组合框何时更改？
 如何使用 javascript 将默认文件扩展名放在另存为对话框中？
 程序中的对话框应用- ”另存为“对话框
 如何使用另存为对话框将创建的 excel 实例保存到客户端的磁盘
 如何使用javascript或其他语言打开另存为浏览器的对话框？