質問: strStatus & "サブフォルダ数: " & .SubFolders.Count & vbCr End With MsgBox strStatus ``` 因みに使用しているエディタはnotepad++でエンコードはUTF-8になっています。 ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/21d2abe2cb3ab1a0274bcf367b3b7be6.png) **UTF-8で文字化けしないように日本語表示する為にはどうしたらよろしいでしょうか?** 宜しくお願い致します。
回答: VBS スクリプトとして使えるのは ANSI か UTF16 のみで UTF8 には対応していないようです。 ANSI か UTF16 で保存するのが一番手っ取り早いですが、それでもという場合、WSF なら UTF8 が使えるようです。 JScript(Windows スクリプト ファイル)をUTF-8で書く 例は JScript ですが、VBcript でも大丈夫かも知れませんので試してみてください。