2015-11-16 143 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