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 回答日時： 2013/09/28 21:39

デスクトップを開くだけなら

With WScript.CreateObject("WScript.Shell")
.Run "explorer.exe " & .SpecialFolders("Desktop")
End With

この回答へのお礼

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

お礼日時：2013/09/30 23:30

No.1 回答者： shiojiri 回答日時： 2013/09/28 19:11

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

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

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

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

この回答への補足

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

補足日時：2013/09/28 19:47