エクセル ＶＢＡ バッチが動かない。
以下のＶＢＡを試行錯誤の末（未熟なもので・・）
作ってみました。
デスクトップ上のフォルダを確認にて、存在する場合はそのままバッチ実行、
存在しない場合はフォルダを作成してバッチ実行。
というものなのですが、フォルダが存在する場合はすんなり行くのですが、
存在しない場合、フォルダを作成した後、バッチ処理がされなくて
困っています。どこが悪いのでしょうか？
是非ご教授お願いいたします。
ちなみにバッチはＸＣＯＰＹです。
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
お礼
ChDir "C:\" Shell "C:\test.bat", vbNormalFocus でできました！ カレントディレクトリがデフォルトだったんですね。 まったく気づきませんでした。 とっても助かりました。ありがとうございました。