vbscript を使ってフォルダを開くようにしたい。

Question

■実現したいこと
vbscript を使ってフォルダを開くようにしたい。

■発生している問題・エラーメッセージ
日本語(漢字、ひらがな)、空白、記号がフォルダ名に使用されていると開くとエラーが表示される。

■該当のソースコード
Dim FN ' フォルダ名
Dim objShell

FN = "C:\work\01 保存"
Set objShell = WScript.CreateObject("Shell.Application")
objShell.Explore FN
Set objShell = Nothing

Answer 1

推測ですが、ソースファイルの文字コードがUNICODEになっていないでしょうか？
メモ帳でいいのでソースファイルを開いて、「名前を付けて保存」を選び、下部に表示されている「文字コード」を確認してください。
ANSIになっていなければ、選択して上書き保存してみてください。

ちなみにこちらの環境(Windows10)ではエラーは発生していません。

Comments

[kkkkuni]

コメントありがとうございます。
ANSIに変更し、エラー発生せず動作しました。ありがとうございます。