バッチファイルを起動し、正常ならタイムスタンプをおし、異常ならエラーを表示したいのですが、対応策がありますか？ いちお、このサイトを検索しましたが探せなかったので。 Shellだとバッチを起動できたかどうかで、バッチ自体が正常終了したかが取得できません。 現状は、以下の内容でいちお動いていますが、エラーを取得できないため、バッチ上でエラーがあってもタイムスタンプが押されてしまします。 fileNameにはバッチファイルのフルパスが入っています。 Dim result As Integer result = Shell(fileName, 1) If result <> 33 Then Msgbox fileName & "のバッチ起動に失敗しました。" Exit Function End If Kill fileName タイムスタンプ処理 以上