VB.netで呼び出したバッチファイルが正常に動作しない

Question

実現したいこと

表題の通り、VB.NETで呼び出したバッチファイルを正常動作させたいです。

前提

バッチファイルは２つのCSVファイルを結合するものです。
コードは以下になります。

@echo off
setlocal enabledelayedexpansion

set /a counter=0

for /f %%i in ('dir /b *.csv') do (

    echo %%i
    if !counter!==0 (
        set /p _head=<%%i
        echo !_head!>>result.csv
    )
    set /a counter=!counter!+1

    for /f "tokens=* skip=1" %%b in (%%i) do (
        echo %%b>>result.csv
    )
)

pause

バッチファイルを実行するVB.NETのコードは以下になります。

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim testInfo As ProcessStartInfo = New ProcessStartInfo()
        testInfo.FileName = "C:\file_merge\merge.bat"
        System.Diagnostics.Process.Start(testInfo)
    End Sub
End Class

エラー内容

バッチファイルをダブルクリックすると画像のような画面になり、正常に２つのCSVファイルを結合したresult.csvが生成されます。

vb.netで実行すると画像のような表示となり、result.csvが生成されません。

試したこと

同エラーを検索してもヒットしなかった

補足情報（FW/ツールのバージョンなど）

バッチファイルは以下サイトを参照
【例あり】複数のcsvやtxtファイルを結合する方法を紹介！

VB.NETのコードは以下サイトを参照
【VB.Net】バッチファイルをVBで起動させてみた～やればできる～

Answer 1

ファイルを読んでその中味を加工するのはバッチスクリプトが苦手とする分野で、VBなら簡単にできる分野なので、正しい解決の方向としては、バッチを起動しないでVBのみで完結させることです。

それはさておき、エラーの原因ですが、dir /b *.csvはカレントディレクトリーのcsvファイルを表示します。
貴方の思っているカレントディレクトリーと、実際のカレントディレクトリーが異なるのでしょう。
そもそも「カレントディレクトリー」ってご存じでしょうか？

簡単には、カレントディレクトリーを扱いたいファイルがあるディレクトリーに変更することです。
バッチファイルの冒頭に、pushd D:\xxxxx\yyyy\zzz等と書きます。
もし、C:\file_mergeにあるなら、pushd C:\file_merge\ですね。

追記

ファイルを読んでその中味を加工するのはバッチスクリプトが苦手とする分野で、

と書いたとおりですが、質問文のコードだと、
・空白行が無視される
・先頭の空白が無視される（前に詰まる）
・行頭が;の行が無視される
・文字 ! が消える
などの制約があるので、そういう心配の無いファイルしか扱えません。

Comments

[otn]

最近、カレントディレクトリーについて、説明したばかりだったのを思い出しました。
https://teratail.com/questions/ve1kq1dr0jh4qa#reply-nim7hbb80akv83

[sigasiga]

解決しました！！
ありがとうございました！！

余裕があればVBのみで完結させます
アドバイスもありがとうございました

[otn]

> 余裕があればVBのみで完結させます
ですが、「ファイルを読んでその中味を加工するのはバッチスクリプトが苦手」を回答に補足しておきました。