とりあえずエラーだらけですね。 基本的な間違いとしては， 「“」や「”」がたくさん入っています。 また VBScript では変数の型指定などできないでしょう？ つまり１行目からしてダメ。２行目もダメ。 それ以降も無茶苦茶です。 １行ずつちゃんと動作するのかを確かめながら作成して行きましょう。 以下では 動作内容本体であるファイルコピー部分は除いて 外枠のみについて書きます(動作内容本体などたどり着けません)。 とりあえず， 「“」や「”」を「"」に修正した上で ファイルコピー部分は除いた外枠部分のみを単純化してみます↓。 Dim Answer Msgbox "消費税計算機のインストールを開始します" Msgbox "インストール先はC:直下です。よろしいですか？", vbYesNo , "確認1" MsgBox "またkasuyacorpフォルダを作成します。", vbYesNo, "確認2" MsgBox "本当によろしいですか", vbYesNo, "最終確認" Select Case Answer     Case vbYes         MsgBox "インストールします"     Case vbNo         MsgBox "インストールを中止します" End Select これだけ単純化してみても無茶苦茶でまともに動作しません。 たとえば， 「インストール先はC:直下です。よろしいですか？」 というメッセージボックスで「いいえ」をクリックしても処理は先に進んでしまいます。 こんなメッセージボックスなど出す意味がありませんよ。。。 また最後の確認 「本当によろしいですか」 というメッセージボックスで「はい」をクリックしても「いいえ」をクリックしても Select Case Answer 内の２つの Case は両方とも実行されません。 変数 Answer は宣言しただけで何の値も代入されませんからね。 何も代入していない状態で Select Case Answer とかイミフメイ過ぎます。 上の外枠部分のみを単純化したスクリプトの 原型をなるべく尊重した形での修正案(あくまでも一例)を提示します↓。 Dim Answer Msgbox "消費税計算機のインストールを開始します" If Msgbox("インストール先はC:直下です。よろしいですか？",vbYesNo,"確認1") = vbNo Then     MsgBox "インストールを中止します"     WScript.Quit End If If MsgBox("またkasuyacorpフォルダを作成します。",vbYesNo,"確認2") = vbNo Then     MsgBox "インストールを中止します"     WScript.Quit End If Answer = MsgBox("本当によろしいですか",vbYesNo,"最終確認") Select Case Answer     Case vbYes         MsgBox "インストール開始！"     Case vbNo         MsgBox "インストールを中止します" End Select これでなんとかまともに動くようになったのではないかと思います。 しかし， 私は上のように If文 をタラタラ書くのも嫌ですし WScript.Quit もあまり使いたくないので 例えば次のようなスクリプトにするような気がします↓。 ShowConfirm Sub ShowConfirm()     Msgbox "消費税計算機のインストールを開始します"     Dim Q(2), i     Q(0)=Array("インストール先はC:直下です。よろしいですか？","確認1")     Q(1)=Array("またkasuyacorpフォルダを作成します。","確認2")     Q(2)=Array("本当によろしいですか","最終確認")     For i = 0 To UBound(Q)         If Msgbox(Q(i)(0), vbYesNo, Q(i)(1)) = vbNo Then             MsgBox "インストールを中止します"             Exit Sub         End If     Next     DoInstall End Sub Sub DoInstall()     MsgBox "★インストール開始！" End Sub とにかく， 問題点を『単純化』して(『切り分け』して) 各部分が正確に動くように段階を経てキッチリ作っていく必要があります。 適当に ダーーーーッ と書いてもうまく行くはずがありません。 (適当に書いたのではなく適当にコピペしたとしても同じことです。)