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

Question

我一点也不擅长 VBScript，但是多亏了 Google 我能够将能够在 explorer.exe

中打开文件路径的脚本放在一起

我想在同一个 window 中打开特定路径，而不是在新路径中。 VBScript 可以做到吗？

这是我的代码：

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

谢谢你的建议。

Answer 1

这是一个使用 SendKeys 的骇人听闻的方法，如果 explorer.exe 的打开实例具有焦点，它将起作用：

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

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

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

Answer 2

试试这个：

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run Target

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

vbscript open folder in same explorer window

vbscript

wsh