バッチファイルで特定のフォルダに存在する複数の同一名称ファイルを別の一つのフォルダにまとめたいです。

Question

実現したいこと

各フォルダに存在する複数のcsvファイルを一つのフォルダにまとめたいです

前提

つい先日初めてバッチファイルを触り始めました。
特定のフォルダをbatファイルで実行して複数のcsvファイルを一つのフォルダにまとめたいと思っています。
しかしフォルダ内に存在する全てのcsvファイルは同一名称(ここではdatalist01.csv)になっていて一つのフォルダにまとめようとすると上書きされてしまうため、csvファイルの名前を変更(csvファイルが格納されている子フォルダ名(ここではtest_listA~...2023~...)を各csvファイル名の前半部分に足す)して一つのフォルダにまとめようとしています。

batファイル内で行いたい処理を示しますと以下のようになります。
・カレントフォルダに「test_all」フォルダを生成する
・実行したフォルダが空だった場合終了、それ以外なら次の処理へ
・実行フォルダ内の全てのcsvファイルに対して処理を実行
・各csvファイル名の前半部に各csvファイルが格納されているフォルダ名を付与してコピー
・コピー元は各csvファイルが格納されている各フォルダ、コピー先はtest_allフォルダ
・処理の終了

フォルダ構成を示しますと以下のようにしたいと思っています。

BAT_TEST/(BatファイルおよびCSVファイル群が格納されているフォルダ)
├─bat_test/(Batファイルで処理を行いたいフォルダ)
│　　├─test_listA/
│　　│　　├─ test_listA202308/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listA202309/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listA202310/
│　　│　　│　　└─ datalist01.csv
│　　│　　└─ ...
│　　│
│　　├─ test_listB/
│　　│　　├─ test_listB202308/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listB202309/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listB202310/
│　　│　　│　　└─ datalist01.csv
│　　│　　└─ ...
│　　└─ ...
└─ test.bat

batファイルで処理後

BAT_TEST/(BatファイルおよびCSVファイル群が格納されているフォルダ)
├─bat_test/(Batファイルで処理を行いたいフォルダ)
│　　├─test_listA/
│　　│　　├─ test_listA202308/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listA202309/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listA202310/
│　　│　　│　　└─ datalist01.csv
│　　│　　└─ ...
│　　│
│　　├─ test_listB/
│　　│　　├─ test_listB202308/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listB202309/
│　　│　　│　　└─ datalist01.csv
│　　│　　├─ test_listB202310/
│　　│　　│　　└─ datalist01.csv
│　　│　　└─ ...
│　　└─ ...
│
├─test_all(Batファイル実行後作成されるフォルダ、および処理したCSVファイルを格納するフォルダ)
│　　├─test_listA/
│　　│　　├─ test_listA202308datalist01.csv(名称を変更したtest_listA202308に格納されていたCSVファイル)
│　　│　　├─ test_listA202309datalist01.csv(名称を変更したtest_listA202309に格納されていたCSVファイル)
│　　│　　├─ test_listA202310datalist01.csv(名称を変更したtest_listA202310に格納されていたCSVファイル)
│　　│　　└─ ...
│　　│
│　　├─ test_listB/
│　　│　　├─ test_listB202308datalist01.csv(名称を変更したtest_listB202308に格納されていたCSVファイル)
│　　│　　├─ test_listB202309datalist01.csv(名称を変更したtest_listB202309に格納されていたCSVファイル)
│　　│　　├─ test_listB202310datalist01.csv(名称を変更したtest_listB202310に格納されていたCSVファイル)
│　　│　　└─ ...
│　　└─ ...
│
└─ test.bat

発生している問題・エラーメッセージ

(※バッチファイルのエラーメッセージをどう出力すればいいのかわかりませんでした...)

・test_allフォルダは生成されるがそれ以降の処理が正常に動作していない、しかし原因がわからない。
・test_allフォルダ内にもcsvファイルが格納されている各フォルダを生成できていない
(上記構成だとtest_all\test_listA,B...←csvがコピーされてきた格納されるこのフォルダ群)
・コピー元やコピー先のパス指定の仕方が理解できておらず、どう記述すればいいかわからない
(copy コピー元 コピー先 名前 とするとみたがパスでの指定がわからない)
・ファイル名の変更がうまくいかない、わからない

=========以下8/14追記===========================

簡易的に作成したフォルダ構成にてバッチファイルを実行するフォルダを指定して処理を行った結果(追記上部コード)正常に動作したが
バッチファイルに対して様々なファイルをドラッグ＆ドロップで処理を実行したいため、追記下部コードにてset "TargetFolder=%~dp1"でバッチファイルを実行したフォルダのパスを指定してみたが、12行目までしか正常に動作しませんでした。
19行目、24行目のfor /d %%j in ("%TargetFolder%%%i*")が間違っているのだと思いますが、解決策がわからずじまいになっています。
大変申し訳ないのですが現状の限界を感じております。助力のほどいただけたら幸いです。

該当のソースコード

@echo off

:rem エラーメッセージ、処理結果の出力は最終的にはしないのでこの部分は消去予定
mkdir .\log
set BAT_LOG=%~dp0\log\%bad%.log

mkdir .\test_all

if "%~1"=="" goto usage
  dir /a:d "%~1">NUL 2>&1
  if %errorlevel% EQU 0 goto top

     pushd "%~dp1"
     "%~f0" "%CD%"

:top
set "pname=%~f1"
set "name=%~nx1"

for /f "delims=" %%f in ('dir /b "%cfname%"\*.csv') do (
    set "cfname=%%~dpf"
    setlocal enabledelayedexpansion
    for %%d in ("!cfname:~0,-1!") do (
        set "dirname=%%~nd"
        copy "%pname%\%%f" ".\test_all\!dirname!_%%f"
    )
    endlocal
)

goto :EOF

:usage
echo usage: %0 folder or file

Pause
Exit

=========以下8/14追記===========================

@echo off

rem Cell_log_allフォルダを生成
mkdir .\Cell_log_all

rem 各Cell_log(CL-)サブフォルダを生成
for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (
    mkdir ".\Cell_log_all\CL-%%i"
)

setlocal enabledelayedexpansion

rem フォルダ上から下へ
for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (
    rem サブフォルダカウント
    set count=0
    for /d %%j in ("%Cell_datalist%\%%i*") do (
        set /a count+=1
    )
    
    rem サブフォルダ処理
    for /d %%j in ("%Cell_datalist%\%%i*") do (
        set "sourceFolder=%%j"
        set "destinationFolder=.\Cell_log_all\CL-%%i\%%~nxj"
        
        rem サブフォルダコピー
        xcopy /Y /I /E "!sourceFolder!" "!destinationFolder!"
    )
)

rem カレントフォルダCell_log_allフォルダ対象
set "targetFolder=.\Cell_log_all"

rem CSVファイル処理
for /r "%targetFolder%" %%i in (*.csv) do (
    rem CSVファイルのパスを取得
    set "csvPath=%%~fi"
    
    rem フォルダ名変更
    set "folderName=%%~dpi"
    set "folderName=!folderName:~0,-1!"
    
    rem ファイル名連結 CSVファイル移動
    move /Y "!csvPath!" "!folderName!.csv" >nul 2>&1
)

rem 各サブフォルダ処理
for %%i in (CL-Mt-Log CL-Df-Log CL-Lf-Log CL-Dd-Log) do (
    rem サブフォルダのパスを設定
    set "subfolder=.\Cell_log_all\%%i"
    
    rem 空フォルダ削除
    for /d %%j in ("!subfolder!\*") do (
        rd "%%j" 2>nul
    )
)

endlocal

exit

@echo off

set "TargetFolder=%~dp1"

rem Cell_log_allフォルダを生成
mkdir .\Cell_log_all

rem 各Cell_log(CL-)サブフォルダ生成
for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (
    mkdir ".\Cell_log_all\CL-%%i"
)

setlocal enabledelayedexpansion

rem フォルダ上から下へ
for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (
    rem サブフォルダカウント
    set count=0
    for /d %%j in ("%TargetFolder%\%%i*") do (
        set /a count+=1
    )
    
    rem サブフォルダ処理
    for /d %%j in ("%TargetFolder%\%%i*") do (
        set "sourceFolder=%%j"
        set "destinationFolder=.\Cell_log_all\CL-%%i\%%~nxj"
        
        rem サブフォルダコピー
        xcopy /Y /I /E "!sourceFolder!" "!destinationFolder!"
    )
)

rem カレントフォルダCell_log_allフォルダ対象
set "targetFolder=.\Cell_log_all"

rem CSVファイル処理
for /r "%targetFolder%" %%i in (*.csv) do (
    rem CSVファイルのパスを取得
    set "csvPath=%%~fi"
    
    rem フォルダ名変更
    set "folderName=%%~dpi"
    set "folderName=!folderName:~0,-1!"
    
    rem ファイル名連結 CSVファイル移動
    move /Y "!csvPath!" "!folderName!.csv" >nul 2>&1
)

rem 各サブフォルダ処理
for %%i in (CL-Mt-Log CL-Df-Log CL-Lf-Log CL-Dd-Log) do (
    rem サブフォルダのパスを設定
    set "subfolder=.\Cell_log_all\%%i"
    
    rem 空フォルダ削除
    for /d %%j in ("!subfolder!\*") do (
        rd "%%j" 2>nul
    )
)

endlocal

exit

試したこと

ファイル名を変更する等の単語で調べソースコードをお借りしてきたのち、ren→copy等のいくつかに変更を加えていきました。
各変数やコマンドの意味等を調べて理解を進めていました。

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

使用OS:windows10

Comments

[otn]

21行目でcfnameにセットする前に20行目でcfnameを参照していますが、タイプミスでしょうか？

[T_Sajispoon_T]

コメントありがとうございます。
こちらのミスになります、ごめんなさい。
set cfnameは19行目に記述しなければいけない...と思います。

ただ作成しているbatファイルも途中の状態であると同時に、当方もコードのどれがどう処理されているのかわからない状態になっているのが現状のため調べながら修正をしていきたいと思います。

ご指摘ありがとうございました。

[otn]

引数指定で汎用にしようとしているようですが、まずは特定ディレクトリ（コードに埋め込み）でちゃんと動く物を作ってから、汎用化を考えるのが良いでしょう。

[T_Sajispoon_T]

特定ディレクトリで～というのは処理を行いたいフォルダもしくはファイル自体を指定するという認識でよろしいでしょうか？

[otn]

はい。
いまのスクリプトをそのままそのように書き換えて動くようになるわけじゃないですが、
考えないと行けないことが減るので、考えているときの間違いの発生が減ります。
今のを全部消して、忘れて、ゼロから書き直すのが良いと思います。

[T_Sajispoon_T]

わかりました、ありがとうございます、頑張ってみます。

Answer 1

方法としては、
案１：test_listAなどについてのループの中で、test_listA202308などについてのループを回るという二重ループにする。
案２：絶対パスの一覧を作り、絶対パスを\で分割して必要な情報を取り出す。
などが考えられます。質問文のコードはおそらく案１をやろうとしている途中。
案２でいくと、下記のような感じです。

仮に、bat_test の場所を D:\foo\bar\bat_test だとすると、%%Fの対象ファイル名は、
D:\foo\bar\bat_test\test_listA\test_listA202308\datalist01.csv
等で、使いたい名前は、\で分割した6、7番目なので、

pushd D:\Temp\Z\bat_test
for /f "delims=" %%F in ('dir /b /s *.csv') do (
	for /f "delims=\ tokens=6,7" %%X in ("%%~F") do (
		copy "%%~F" "..\test_all\%%X%%Y"
	)
)

質問文中のディレクトリー構造だけは固定だが、場所を D:\foo\bar\bat_test のように特定したくないと言うことなら、
（＝異なる場所の時に、6,7を数え直して修正したくないなら）
前半のドライブ名からbat_testまでの部分(%CD%相当)を削除すると、
test_listA\test_listA202308\datalist01.csv
と、2、3番目に確定します。

setlocal enabledelayedexpansion
pushd %~dp0\bat_test
for /f "delims=" %%F in ('dir /b /s *.csv') do (
	set "FN=%%F"
	set "FN=!FN:%CD%\=!"
	for /f "delims=\ tokens=2,3" %%X in ("!FN!") do (
		copy "!FN!" "..\test_all\%%X%%Y"
	)
)

追記

階層を1つ見誤っていたので、コードを下記のように訂正しておきます。

setlocal enabledelayedexpansion
pushd %~dp0\bat_test
for /f "delims=" %%F in ('dir /b /s *.csv') do (
	set "FN=%%F"
	set "FN=!FN:%CD%\=!"
	for /f "delims=\ tokens=1,2,3" %%X in ("!FN!") do (
		if not exist "..\test_all\%%X" mkdir "..\test_all\%%X"
		copy "!FN!" "..\test_all\%%X\%%Y%%Z"
	)
)

～～～\bat_test\test_listA\test_listA202308\datalist01.csvといいうファイルに対して、
%%X ・・・ test_listA
%%Y ・・・ test_listA202308
%%Z ・・・ datalist01.csv
ですね。
bat_test相当をドロップするなら、最初のところをpushd %1にすればその隣にtest_allが出来ます。

Comments

[T_Sajispoon_T]

返信遅くなり大変申し訳ありません、アドバイスありがとうございます。
otnさんから頂いたコードを組み込んでコードの作成を続けていましたが、力足らず正常に動作させることができませんでした。申し訳ありません。

過去コメントいただいた通り、一度最初からコードを書き直してみた結果、省略できる箇所があるとは思いますが、フォルダを一つに指定して実行処理を行うことはできました。しかし、実行するフォルダを指定しない場合を作成したものの上手くいっていない状態です。大変恐縮なのですが、再度アドバイスいただけたら幸いです。

重ねて今回、アドバイスをいただきありがとうございました。

[otn]

> otnさんから頂いたコードを組み込んでコードの作成を続けていましたが、
回答のコードは、階層を1つ飛ばしていたので、訂正しておきました。

お書きのコードは仕様が分からないので、書いて貰えば読みます。
どういうフォルダー・ファイル構成で、そのうちのどのフォルダーをドロップしたら、結果としてどういうフォルダー・ファイル構成にしたいかなど。

[T_Sajispoon_T]

コメントありがとうございます。
仕様...は書いたことがないので処理で行いたいことを挙げていこうと思います。

前述したとおり、一旦コードをはじめから考え直しました。
フォルダ構成と新しく作ったコードは下記になります。

やりたいことを簡単にまとめますと「バッチファイルを実行したフォルダ内に存在するすべてのcsvファイルを各種類ごとのフォルダにまとめる。」になります。
そして今回新しく作り直したコードでは
①コピー先フォルダの作成
②コピー先フォルダにサブフォルダ作成
③csvファイルを含んだフォルダのコピー
④csvファイルのリネーム及び移動
⑤空になったフォルダの削除
をしています。

これの先はさらに
実行処理した複数のフォルダの
各フォルダのMt-Log、Df-Log、Lf-Log、Dd-Logをそれぞれ一つにまとめていく...といったことをしようとしています。

((質問自体を編集して追記しております。))

フォルダ構成

``` Folder

親フォルダ/
├─作成するバッチファイル/
├─バッチファイルで実行したいフォルダ/(※今回指定したフォルダは「Cell_datalist」)←他にも処理をしたいフォルダが複数ある
│　　├─Mt-Log/
│　　│　　├─ Mt-Log20230801/
│　　│　　│　　└─ datalog.csv
│　　│　　├─ Mt-Log20230808/
│　　│　　│　　└─ datalog.csv
│　　│　　├─ Mt-Log20230815/
│　　│　　│　　└─ datalog.csv
│　　│　　└─ ...
│　　│
│　　├─ Df-Log/
│　　│　　├─ Df-Log20230801/
│　　│　　│　　└─ datalog.csv
│　　│　　├─ Df-Log20230808/
│　　│　　│　　└─ datalog.csv
│　　│　　├─ Df-Log20230815/
│　　│　　│　　└─ datalog.csv
│　　│　　└─ ...
│　　│
│　　│
│　　├─ Lf-Log/
│　　│　　├─ Lf-Log20230801/
│　　│　　│　　└─ datalog.csv
│　　│　　├─ Lf-Log20230808/
│　　│　　│　　└─ datalog.csv
│　　│　　├─ Lf-Log20230815/
│　　│　　│　　└─ datalog.csv
│　　│　　└─ ...
│　　│
│　　│
│　　└─ Dd-Log/
│　　　　　├─ Dd-Log20230801/
│　　　　　│　　└─ datalog.csv
│　　　　　├─ Dd-Log20230808/
│　　　　　│　　└─ datalog.csv
│　　　　　├─ Dd-Log20230815/
│　　　　　│　　└─ datalog.csv
│　　　　　└─ ...
│　　
│
└─ Cell_log_all/(バッチファイル実行後に作成されるフォルダ、および処理したCSVファイルを格納するフォルダ)
　　　├─CL-Mt-Log/
　　　│　　├─ Mt-Log20230801datalog.csv
　　　│　　├─ Mt-Log20230808datalog.csv
　　　│　　├─ Mt-Log20230815datalog.csv
　　　│　　└─ ...
　　　│
　　　├─ CL-Df-Log/
　　　│　　├─ Df-Log20230801datalog.csv
　　　│　　├─ Df-Log20230808datalog.csv
　　　│　　├─ Df-Log20230815datalog.csv
　　　│　　└─ ...
　　　│
　　　├─ CL-Lf-Log/
　　　│　　├─ Lf-Log20230801datalog.csv
　　　│　　├─ Lf-Log20230808datalog.csv
　　　│　　├─ Lf-Log20230815datalog.csv
　　　│　　└─ ...
　　　│
　　　└─ CL-Dd-Log/
　　　　　　├─ Dd-Log20230801datalog.csv
　　　　　　├─ Dd-Log20230808datalog.csv
　　　　　　├─ Dd-Log20230815datalog.csv
　　　　　　└─ ...

```

``` CMD

@echo off

rem Cell_log_allフォルダを生成
mkdir .\Cell_log_all

rem 各Cell_log(CL-)サブフォルダを生成
for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (
mkdir ".\Cell_log_all\CL-%%i"
)

setlocal enabledelayedexpansion

rem フォルダ上から下へ
for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (
rem サブフォルダカウント
set count=0
for /d %%j in ("%Cell_datalist%\%%i*") do (
set /a count+=1
)

rem サブフォルダ処理
for /d %%j in ("%Cell_datalist%\%%i*") do (
set "sourceFolder=%%j"
set "destinationFolder=.\Cell_log_all\CL-%%i\%%~nxj"

rem サブフォルダコピー
xcopy /Y /I /E "!sourceFolder!" "!destinationFolder!"
)
)

rem カレントフォルダCell_log_allフォルダ対象
set "targetFolder=.\Cell_log_all"

rem CSVファイル処理
for /r "%targetFolder%" %%i in (*.csv) do (
rem CSVファイルのパスを取得
set "csvPath=%%~fi"

rem フォルダ名変更
set "folderName=%%~dpi"
set "folderName=!folderName:~0,-1!"

rem ファイル名連結 CSVファイル移動
move /Y "!csvPath!" "!folderName!.csv" >nul 2>&1
)

rem 各サブフォルダ処理
for %%i in (CL-Mt-Log CL-Df-Log CL-Lf-Log CL-Dd-Log) do (
rem サブフォルダのパスを設定
set "subfolder=.\Cell_log_all\%%i"

rem 空フォルダ削除
for /d %%j in ("!subfolder!\*") do (
rd "%%j" 2>nul
)
)

endlocal

exit
```

以上が今回書き直したコードになります、このコード自体は動いたのですが、
バッチファイルを実行するフォルダを名称指定ではなく、実行したファイル自体を指定したく
`set "TargetFolder=%~dp1"`
の追加と一部の修正をしたのですが上記コード14行目以降`for %%i in (Mt-Log Df-Log Lf-Log Dd-Log) do (...`
の処理がうまくいかなくなったところで止まっている状態になります。

情報をうまく伝えれていないかもしれませんがご確認のほどよろしくお願いいたします。

[otn]

こういうのは、コメントじゃなくて、質問に書きましょう。

[T_Sajispoon_T]

失礼しました、改めて新しく質問を投稿します。

[otn]

いや、新しい質問じゃなくて、今の質問を騙取します。
新しく質問を立てると、「過去に投稿した質問と同じ質問」という指摘を受けます。