windowsバッチでリネームしてパス付圧縮をしたい

Question

#windowsバッチでテキストファイルをリネームしてパス付圧縮を行いたい

アンダーバー（_)で区切られたファイル名を持つテキストファイル A_B.txt のBの部分を今日の日付に変換し、Aの部分をパスワードとして変数等に入れ、lhaplusに渡してパス付きzip圧縮したいと考えています。

たとえば以下のようなファイルがあり、
abc_hoge.txt
def_foo.txt
ghi_bar.txt
……

これらを
abc_20210131.txt　というふうにrenameし、さらにabcの部分をパスワードとしてlhaplusで圧縮する、という処理です。
abc_20210131.zip　（パスワード:abc）

set today=%date:~0,4%%date:~5,2%%date:~8,2%

setlocal enabledelayedexpansion
for /f "usebackq tokens=1,2 delims=_" %%a in (`dir *.txt /b`) do (
rename %%a_%%b %%a_!today!.txt
set name=%%a
call :sub %%a
)
endlocal

:SUB
"K:\K-programfiles\Lhaplus\Lhaplus.exe" %1 /c:zip /p:%name% /od
Exit /b

これだとサブルーチンに渡す%%aはabc(やdefなど）になってしまい、ファイルとして渡せていません。
ファイルはファイルで、パスワードはパスワードでそれぞれ渡したいのですが、何か良い方法はないでしょうか。

Answer 1

簡単には、ファイル名を別に%2として渡せば良いでしょう。
ただ、サブルーチンにする意味が無いです。

set today=%date:~0,4%%date:~5,2%%date:~8,2%

for /f "usebackq tokens=1,2 delims=_" %%a in (`dir *.txt /b`) do (
rename %%a_%%b %%a_%today%.txt
"K:\K-programfiles\Lhaplus\Lhaplus.exe" %%a_%today%.txt /c:zip /p:%%a /od
)

Comments

[sight_u94]

ありがとうございます。