@echo off
REM -----------------------------------------------------------------------------------------
REM ■oldファイルを作成するバッチ■
REM ファイルサーバ上の各フォルダに、このバッチファイルを配置してください。
REM ファイルをドラッグ＆ドロップすることで、ファイル名に日付を付加してoldフォルダにコピーします。
REM -----------------------------------------------------------------------------------------
setlocal EnableDelayedExpansion

pushd %‾dp0

REM バックアップファイルの出力先フォルダ
set outdir=_old

if not exist %outdir%¥nul mkdir %outdir%

::for %%a in (%*) do ( call :Backup %%a )
:loop
if #%1# == ## goto break
call :Backup "%‾1"
shift
goto loop
:break

popd

exit

:Backup
REM ファイル更新日時を取得
set upd_datetime=%‾t1
set upd_date=%upd_datetime:‾0,10%
set upd_date=%upd_date:/=%
set upd_time=%upd_datetime:‾11,5%
set upd_time=%upd_time::=%
set target=%outdir%¥"%‾n1_%upd_date%_%upd_time%%‾x1"

if exist %1¥nul (
    xcopy /i /e /Y %1 %target%
) else (
    copy /Y %1 %target%
)

exit /b

@echo off
REM -----------------------------------------------------------------------------------------
REM パス取得バッチ
REM -----------------------------------------------------------------------------------------
SET BATCHPATH=%CD%
SET YMD=%date:‾-10,4%%date:‾-5,2%%date:‾-2,2%
 
REM * ========================================================================================
REM * 処理開始
REM * ========================================================================================
:LA_STARTBATCH
 
cls
ECHO =========================================================================================
ECHO 　パス取得バッチ
ECHO.
ECHO -----------------------------------------------------------------------------------------
ECHO 　指定したDIRECTORYに存在するファイルのパスを、指定したルールで吐き出しやす。
ECHO.
ECHO =========================================================================================
ECHO.
SET /p idir=処理するディレクトリのパスを入力（または [c] キャンセル）⇒
IF '%idir%'=='c' GOTO LA_ENDBATCH
SET DIRPATH=%idir%
 
IF '%idir%'=='' (
SET DIRPATH=%CD%
)
 
ECHO.
SET /p outputrule=取得する情報を指定（[1]フォルダ内のみ　[2]サブフォルダ含むツリー　[c] キャンセル）⇒
IF '%outputrule%'=='c' GOTO LA_ENDBATCH
IF '%outputrule%'=='' GOTO LA_STARTBATCH
SET ORULE=%outputrule%
 
REM 作業フォルダに移動
IF NOT EXIST %DIRPATH% (
ECHO 指定されたディレクトリは存在しません。
pause
GOTO LA_STARTBATCH
)

pushd %DIRPATH%
ECHO [%DATE% %TIME%] バッチ処理開始
ECHO %DIRPATH%
setlocal enabledelayedexpansion
IF %ORULE%==1 dir /b >%BATCHPATH%¥output.txt
IF %ORULE%==2 dir /b /s >%BATCHPATH%¥output.txt
echo.
GOTO LA_ENDBATCH
 
 
EXIT /B

REM * =====================================================================================
REM * バッチ終了処理
REM * =====================================================================================
:LA_ENDBATCH
 
ECHO [%DATE% %TIME%] 処理終了 
ECHO.
SET /p end=終了するにはEnterキーを押してください．．．
 
EXIT

@echo off
REM -----------------------------------------------------------------------------------------
REM ファイル名変更バッチ
REM -----------------------------------------------------------------------------------------
SET BATCHNAME=%‾n0
SET YMD=%date:‾-10,4%%date:‾-5,2%%date:‾-2,2%
 
REM * ========================================================================================
REM * 処理開始
REM * ========================================================================================
:LA_STARTBATCH
 
cls
ECHO =========================================================================================
ECHO 　ファイル名変換バッチ
ECHO.
ECHO -----------------------------------------------------------------------------------------
ECHO 　指定したDIRECTORYに存在するファイルの名前を、指定したルールで一括変換しやす。
ECHO.
ECHO =========================================================================================
ECHO.
SET /p idir=処理するディレクトリのパスを入力（または [c] キャンセル）⇒
IF '%idir%'=='c' GOTO LA_ENDBATCH
SET DIRPATH=%idir%
 
IF '%idir%'=='' (
SET DIRPATH=%CD%
)
 
ECHO.
SET /p namerule=ファイル名称の変更ルールを指定（[1]頭に文字列を追加　[2]お尻に文字列を追加　[c] キャンセル）⇒
IF '%namerule%'=='c' GOTO LA_ENDBATCH
IF '%namerule%'=='' GOTO LA_STARTBATCH
SET NRULE=%namerule%
 
ECHO.
SET /p ifile=新しいファイル名を入力（または [c] キャンセル）⇒
IF '%ifile%'=='c' GOTO LA_ENDBATCH
IF '%ifile%'=='' GOTO LA_STARTBATCH
SET FNAME=%ifile%
 
REM 作業フォルダに移動
IF NOT EXIST %DIRPATH% (
ECHO 指定されたディレクトリは存在しません。
GOTO LA_STARTBATCH
)

:LA_STARTBATCH
CD %DIRPATH%
ECHO [%DATE% %TIME%] バッチ処理開始
ECHO %DIRPATH%
IF %NRULE%==1 ECHO 上記ディレクトリ内にあるファイルの頭に %FNAME% をくっつけます。
IF %NRULE%==2 ECHO 上記ディレクトリ内にあるファイルのお尻に %FNAME% をくっつけます。
ECHO.
SET /p confirm=よろしいですか？[ y / n ]⇒
CALL :LA_INPUT_CHECK %confirm% yn
IF '%confirm%'=='n' GOTO LA_CANCELL
 
ECHO.
ECHO 処理開始
setlocal enabledelayedexpansion
FOR /R %%A IN (*) DO (
  SET NM=%%‾nA
    IF NOT '%%‾nA'=='%BATCHNAME%' (
      IF %NRULE%==1 REN "%%‾fA" "!FNAME!%%‾nA%%‾xA"
      IF %NRULE%==2 REN "%%‾fA" "%%‾nA!FNAME!%%‾xA"
    )
)
 
echo.
GOTO LA_ENDBATCH
 
 
EXIT /B

REM * =====================================================================================
REM * コマンドチェック
REM * =====================================================================================
:LA_INPUT_CHECK
ECHO %2 > tmp.text
SET RET=
FOR /F "usebackq" %%t IN (`findstr %1 tmp.text`) DO SET RET=%%t
DEL tmp.text
if '%RET%'=='' (
GOTO LA_INPUT_MISSING
)
 
EXIT /b
 
REM * =====================================================================================
REM * エラー処理
REM * =====================================================================================
:LA_ERROR
echo.
echo エラーが発生しました。
echo.
goto LA_ENDBATCH
 
REM * =====================================================================================
REM * 処理中止
REM * =====================================================================================
:LA_CANCELL
ECHO.
ECHO 処理は中止されました。
ECHO.
GOTO LA_ENDBATCH
 
REM * =====================================================================================
REM * 入力ミス
REM * =====================================================================================
:LA_INPUT_MISSING
ECHO.
SET /p miss=入力に誤りがあります。
GOTO LA_STARTBATCH
 
 
REM * =====================================================================================
REM * バッチ終了処理
REM * =====================================================================================
:LA_ENDBATCH
 
ECHO [%DATE% %TIME%] 処理終了 
ECHO.
SET /p end=終了するにはEnterキーを押してください．．．
 
EXIT