vbscript在同一个资源管理器窗口中打开文件夹

Question

我在VBScript中根本不是很好，但是感谢Google我能够在explorer.exe中打开能够打开文件路径的脚本

我想在同一窗口中打开特定路径，而不是在新窗口中打开。 VBScript能够做到吗？

这是我的代码：

Dim SH, FolderToOpen 
Set SH = WScript.CreateObject("WScript.Shell") 
FolderToOpen = "C:\path\to\my\folder" 
SH.Run FolderToOpen 
Set SH = Nothing 

感谢您的建议。

Answer 1

试试这个：

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run Target

Answer 2

如果SendKeys的开放实例具有焦点，那么使用explorer.exe的hackish方法将起作用：

Set WshShell = WScript.CreateObject("WScript.Shell")
target = "C:/programs"
WshShell.SendKeys "%d"
WshShell.SendKeys target
WshShell.SendKeys "{ENTER}"

这将适用于您，例如：在一个文件夹的脚本中包含上述代码（带有预期目标）。单击脚本图标，它将发送到目标文件夹。

[On Edit]解释它是如何工作的：如果您使用的是Windows资源管理器并输入Alt+d（SendKeys "%d"模拟的那个），那么焦点将转移到地址栏。多年来我一直在使用这个技巧在当前文件夹中打开命令提示符（Alt - d然后键入cmd然后按Enter并打开提示符，打开文件夹作为工作目录） 。当我看到这个问题时，我想知道是否基本上相同的技巧（但是使用VBScript自动化）可以用于导航目的，并且当它第一次按预期工作时令人惊喜。 Alt-d是一个非常有用的键盘快捷键。