ひできちの楽天ブログ

@echo off
REM --- 現在日時を取得（YYYYMMDDHHMMSS形式） ---
for /f %%A in ('wmic os get localdatetime ^| find "."') do set DT=%%A

REM --- 年月日を抽出 ---
set YYYY=%DT:~0,4%
set MM=%DT:~4,2%
set DD=%DT:~6,2%

REM --- 今日の曜日(0=日 ... 6=土)を取得 ---
for /f %%A in ('wmic path win32_localtime get dayofweek ^| findstr [0-6]') do set DOW=%%A

set P1=%1
if "%P1%" == "" set P1=0

REM --- 引数指定の分の未来日の曜日（0-6で丸め） ---
set /a DOW_TOM=%DOW% + %P1%
if %DOW_TOM% GEQ 7 set /a DOW_TOM=%DOW_TOM% - 7
if %DOW_TOM% GEQ 7 set /a DOW_TOM=%DOW_TOM% - 7
if %DOW_TOM% GEQ 7 set /a DOW_TOM=%DOW_TOM% - 7
if %DOW_TOM% GEQ 7 set /a DOW_TOM=%DOW_TOM% - 7
if %DOW_TOM% GEQ 7 set /a DOW_TOM=%DOW_TOM% - 7

REM --- 数字→日本語曜日に変換 ---
set DOWSTR=
if %DOW_TOM%==0 set DOWSTR=日
if %DOW_TOM%==1 set DOWSTR=月
if %DOW_TOM%==2 set DOWSTR=火
if %DOW_TOM%==3 set DOWSTR=水
if %DOW_TOM%==4 set DOWSTR=木
if %DOW_TOM%==5 set DOWSTR=金
if %DOW_TOM%==6 set DOWSTR=土

REM -- 引数指定の分の未来日を計算（単純+1。月末処理は省略） ---
set /a DD=1%DD% + %P1% - 100

set NUM=0%DD%
set NUM=%NUM:~-2%

:: 月の日数を判定
set days=31
if %MM%==04 set days=30
if %MM%==06 set days=30
if %MM%==09 set days=30
if %MM%==11 set days=30
if %MM%==02 set days=28

:: 繰り上げ処理
if %NUM% GTR %days% (
set /a NUM-=days
set /a MM+=1
)


set NUM2=0%NUM%
set NUM2=%NUM2:~-2%

set MM2=0%MM%
set MM2=%MM2:~-2%

REM --- 翌日の日付+曜日文字列 ---
set TOMORROW=%YYYY%%MM2%%NUM2%(%DOWSTR%)

if exist %TOMORROW% goto skip_end

MD %TOMORROW%
echo フォルダー作成完了:
goto end

REM --- 空ファイルを作成 ---
type nul > %TOMORROW%\%TOMORROW%_楽天CH241_idol_番組表.txt
type nul > %TOMORROW%\%TOMORROW%_楽天CH240_neco_番組表.txt
type nul > %TOMORROW%\%TOMORROW%_楽天CH239_sexy_番組表.txt
type nul > %TOMORROW%\%TOMORROW%_楽天CH243_映画_番組表.txt
type nul > %TOMORROW%\%TOMORROW%_楽天CH242_刺激ストロング_番組表.txt
echo 作成完了:

pause
goto end

:skip_end
echo  %TOMORROW% は既に存在しているので処理中止します
pause
pause

:end

call makeDateDirFile.bat 1
call makeDateDirFile.bat 2
call makeDateDirFile.bat 3
call makeDateDirFile.bat 4
call makeDateDirFile.bat 5
call makeDateDirFile.bat 6
call makeDateDirFile.bat 7
call makeDateDirFile.bat 8
call makeDateDirFile.bat 9
call makeDateDirFile.bat 10