VBScriptの「ステートメントの末尾が不正です（エラーコード800A0401)」を解決したい

Question

違うパソコン初心者の友達に再度同じVBScriptを使って驚かそうとしているVBS初心者です。
以前同じソースコードを直してもらったのですが、何回か実行するうちにまたエラーメッセージが表示されるようになってしまいました。

エラーメッセージ
行：1
文字:57
エラー：ステートメントの末尾が不正です。
コード：800A0401
ソース：Microsoft VBScript コンパイル エラー

msgbox"ファイルを一つ削除してもよろしいですか？",vbInformation,"File Deleter"
msgbox"ファイルを削除しています...",vbExclamation,"File Deleter"
msgbox"ファイルの削除が完了しました！",vbCritical,"File Deleter"
msgbox"嘘でーすwww",vbCritical,"Windows(FAKE)"

Answer 1

恐らく文字コードがSJISではなくなっていると思われます。
例えばメモ帳で開いてメニューから名前をつけて保存。
下の方にある「文字コード」がANSI以外になっていると思うので、これを「ANSI」にして保存してみてください。
使用しているエディタの保存時の文字コードの設定を見直してみてください。

Comments

[maisumakun]

あと、改行コードも要注意かもしれないです。

Answer 2

必要ないと思いますが、Errorのついでに本物っぽく仕上げました。

Option Explicit
Dim num,x
num = 2
Do While True num = MsgBox ("msgboxファイルを一つ削除してもよろしいですか？",32+1,"File Deleter")
If num = 1 Then Exit Do
Loop'キャンセルを押したら戻る
msgbox"ファイルを削除しています...",64,"File Deleter"
wscript.sleep 2000'2秒待つ
msgbox"ファイルの削除が完了しました！",vbCritical,"File Deleter"
msgbox"嘘でーすwww",vbCritical,"Windows(FAKE)"

Errorの原因は、VBSは、Shift jisという文字コードを使っているので、
メモ帳の場合は、保存の隣の、文字コードを、ANSIにしてください。