VBSのsendkeysで日本語を出力したいです

質問

WshShell.Run "explorer"
WScript.Sleep 100
WshShell.AppActivate "explorer"
WScript.Sleep 100
WshShell.SendKeys "C:\Users\Default\"
WScript.Sleep 100
WshShell.SendKeys "デスクトップ"
WScript.Sleep 100
WshShell.SendKeys "｛ＥＮＴＥＲ｝"
WScript.Sleep 100

*.VBS ファイルに書き込んで、直接実行したいのですが、エラーになります。
どんなコマンドを足すといいのですか？

回答No.2

watabe007 · ベストアンサー

デスクトップを開くだけなら
With WScript.CreateObject("WScript.Shell")
.Run "explorer.exe " & .SpecialFolders("Desktop")
End With

お礼

完璧でした
ありがとうございます

回答No.1

shiojiri

explorerでデスクトップが表示されれば良いのでしょうか？

試してみましたが、SendKeyした時にアドレスバーにカーソルが来ていないとうまくいかないようです。

私のＰＣ(XP)では下記の記述で表示できました。

Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.Run("explorer file://C:\Users\Default\デスクトップ/")

補足

Sendkeys "{%d}"
をアドレスを出力する直前に書くことでアドレスバーにカーソルを移動しました。
現在使用しているパソコンはＷＩＮ８ですが、プログラミングしているときＷＩＮＸＰだったりします。
どちらでも使えるようにするには、
WshShell.Run("explorer file://C:￥…")
の形式が良いのでしょうか？