試都不要試，就知道這段代碼是錯誤的。因為WshShell.AppActivate考慮的是窗體的Caption中包含的字符或字符串，你用WshShell.AppActivate("D:\")這個，就是說窗體Caption里要包含"D:\"這個字符串。可你打開D盤看看，是這樣的嗎？都是“本地磁盤(D:)”。如果有卷標(biāo)，那更說不準(zhǔn)。所以應(yīng)該寫成WshShell.AppActivate("(D:)")，考慮到內(nèi)存節(jié)約的問題，應(yīng)該這樣寫：

set WshShell = WScript.CreateObject("WScript.Shell")
do 
IF WshShell.AppActivate("(D:)") Then
MsgBox "ok"
wscript.quit
End If
loop