2015-11-16 149 views
2

我不是在VBScript中那么好所有,但由于谷歌我能够放在一起的脚本,它能够在explorer.exe的打开文件路径VBScript中打开文件夹

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

这里是我的代码:

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

谢谢您的建议。

回答

2

下面是使用SendKeys一个hackish的方法,将工作如果explorer.exe打开实例具有焦点:

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

这样,如果你的工作例如在一个文件夹的脚本中有上面的代码(与预期的目标)。点击脚本图标,它会将您发送到目标文件夹。

[关于编辑]对其工作原理的说明:如果您使用的是Windows资源管理器并键入Alt+d(这是SendKeys "%d"模拟的内容),则焦点将转到地址栏。多年来,我一直使用这个技巧在当前文件夹中打开一个命令提示符(Alt - d,然后键入cmd,然后按Enter,并打开提示符,打开文件夹作为工作目录)。当我看到这个问题时,我想知道是否基本上相同的技巧(但通过VBScript自动化)可以用于导航目的,并且在第一次按预期工作时感到惊喜。 Alt-d是一个有用的键盘快捷方式要记住。

+1

真棒,就像一个魅力的工作!非常感谢您的帮助。 – easy4mer

3

试试这个:

Set WshShell = CreateObject("WScript.Shell") 

WshShell.Run Target