エクセル ＶＢＡ バッチが動かない。

質問

以下のＶＢＡを試行錯誤の末（未熟なもので・・）
作ってみました。

デスクトップ上のフォルダを確認にて、存在する場合はそのままバッチ実行、
存在しない場合はフォルダを作成してバッチ実行。
というものなのですが、フォルダが存在する場合はすんなり行くのですが、
存在しない場合、フォルダを作成した後、バッチ処理がされなくて
困っています。どこが悪いのでしょうか？

是非ご教授お願いいたします。

ちなみにバッチはＸＣＯＰＹです。

Sub SET_Original()
Dim strPATHNAME As String
strPATHNAME = "C:\Documents and Settings\ユーザー\デスクトップ\フォルダ"

If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub

If Dir(strPATHNAME, vbDirectory) = "" Then
MsgBox "フォルダは作成します。", vbExclamation

MkDir "C:\Documents and Settings\ユーザー\デスクトップ\フォルダ"
Exit Sub

End If

Dim str As Variant

str = Shell("c:\Documents and Settings\ユーザー\デスクトップ\copy.bat")

End Sub

回答No.2

hana-hana3 · ベストアンサー

＞Exit Sub

これがあると、ここで処理が終了します。

お礼

皆さん、すばやい回答本当に感謝です。
おかげさまで出来ました。

回答No.1

S-Fuji

Exit Subでは？。

お礼

ありがとうございます。

あ～、なんてこった・・。俺はあほや・・。

上手くいきました・・。

つまらない質問にすばやく回答くださり感謝です。

補足

ありがとうございました。
ちなみに、このバッチ、裏で動いているので
せめて処理が終わったよ、的なメッセージを出すことは
出来るでしょうか？