46 lines
1003 B
Batchfile
46 lines
1003 B
Batchfile
|
@echo off
|
||
|
|
setlocal enabledelayedexpansion
|
||
|
|
|
||
|
|
REM === SET YOUR ROOT FOLDER HERE ===
|
||
|
|
set "ROOT=C:\path\to\patient"
|
||
|
|
|
||
|
|
REM === GET TODAY'S DATE IN YYYYMMDD FORMAT ===
|
||
|
|
for /f %%i in ('powershell -NoProfile -Command "Get-Date -Format yyyyMMdd"') do set TODAY=%%i
|
||
|
|
|
||
|
|
set "NEWNAME=PT STMT_%TODAY%.txt"
|
||
|
|
set "FOLDERNAME=PT STMT_%TODAY%"
|
||
|
|
|
||
|
|
echo Processing folders under %ROOT%...
|
||
|
|
echo.
|
||
|
|
|
||
|
|
REM === LOOP THROUGH ALL SUBFOLDERS ===
|
||
|
|
for /r "%ROOT%" %%d in (.) do (
|
||
|
|
|
||
|
|
if exist "%%d\export.txt" (
|
||
|
|
echo Processing: %%d
|
||
|
|
|
||
|
|
REM pushd into the folder so all commands use short relative paths (fixes path-too-long errors)
|
||
|
|
pushd "%%d"
|
||
|
|
|
||
|
|
REM Rename export.txt
|
||
|
|
ren "export.txt" "%NEWNAME%"
|
||
|
|
|
||
|
|
REM Create dated folder
|
||
|
|
mkdir "%FOLDERNAME%" 2>nul
|
||
|
|
|
||
|
|
REM Move renamed txt file
|
||
|
|
move "%NEWNAME%" "%FOLDERNAME%\"
|
||
|
|
|
||
|
|
REM Move all .tif files
|
||
|
|
for %%f in ("*.tif") do (
|
||
|
|
move "%%f" "%FOLDERNAME%\"
|
||
|
|
)
|
||
|
|
|
||
|
|
popd
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
echo.
|
||
|
|
echo Done.
|
||
|
|
pause
|