Vbscript 更改样式选择文件夹

我想知道如何使用此样式选择文件夹

在找到搜索类似以下文件的功能后，我会问：

Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("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>""")
sFileSelected = oExec.StdOut.ReadLine
If sFileSelected = "" Then
    WScript.Echo "Canceled"
Else
wscript.echo sFileSelected
End If

Set wShell=CreateObject（“WScript.Shell”）
设置oExec=wShell.Exec（“mshta.exe”关于：FILE.click（）；新建ActiveXObject（'Scripting.FileSystemObject'）。GetStandardStream（1）。WriteLine（FILE.value）；close（）；resizeTo（0,0）；“”）
sFileSelected=oExec.StdOut.ReadLine
如果选择了sFileSelected=“”，则
Echo“已取消”
其他的
已选择wscript.echo文件
如果结束

试试这个：

Set chosenfolder = CreateObject("shell.application").BrowseForFolder(0,"Select a folder",0)

---

也许可以帮助。。。这是一个打开文件或文件夹对话框的基本小HTA示例…所以我在提问之前看到了你的帖子，问题是这种新样式最适合我的工作，只有一种旧样式，即使我添加了一个editbox，也无法在键入一个无效路径时产生错误。是的，我明白了；找到了Win32 open file（打开文件）对话框的简单自定义项，可用于选择文件或文件夹。版权所有（C）2010 Scott Wisniewski；他说。不幸的是我需要在vbs。。。我在上面看到，可以添加一个editbox put&H0211，但是通过放置一个无效路径不会出现任何错误。。。谢谢你回答我的问题，但我需要的是窗口设计就像帖子一样。虽然这个答案可能是正确的和有用的，但如果你能解释一下它是如何帮助解决问题的，那就更好了。如果有一个变化（可能是无关的）导致它停止工作，并且用户需要了解它曾经是如何工作的，那么这在将来变得特别有用。