DosTips.com

Code: Select all

@Echo OFF
:: V.7

:: Set These Variable Here
SET "in=%userprofile%\desktop\1"
SET "out=%userprofile%\desktop\1\TMP"
SET "type=txt"

:: Code Start from Here
SETLOCAL EnableDelayedExpansion

:: Create Destination Folder If not exist
IF not Exist "%out%" MD "%out%" >nul

SET "total=0"
For /F "delims=" %%A In ('DIR /A:-D /B "%in%\*.%type%"') Do SET /A "total+=1"

:: Check Total files number to see if the count is Odd or Even Number
Call :Odd_or_Even "!total!" "status"
IF "%status%" EQU "Odd" ( SET /A First_Half= total / 2 + 1
   ) Else ( SET /A First_Half = total / 2 )
   
:: Here we Identify the first page of the Back Pages
SET /A Sec_Half=First_Half + 1

:: Create a list of Head and Back Pages
SET "Head="
SET "Back="
For /L %%A In (1 1 %First_Half%) Do SET "Head=!Head! %%A"
For /L %%A In (%Sec_Half% 1 %total%) Do SET "Back=!Back! %%A"

:: Copy The Head Pages to Destination Folder with the New Names
SET "C1=1"
For %%A In (!Head!) Do (
   IF Exist "%in%\%%A.%type%" (
      IF "%%A" == "1" Copy "%in%\%%A.%type%" "%out%\!C1!.%type%" >nul
      IF not "%%A" == "1" (
         SET /A C1 += 2
         Copy "%in%\%%A.%type%" "%out%\!C1!.%type%" >nul
      )
   )
)

:: Copy The Back Pages to Destination Folder with the New Names
SET "C2=2"
For %%A In (!Back!) Do (
   IF Exist "%in%\%%A.%type%" (
      Copy "%in%\%%A.%type%" "%out%\!C2!.%type%" >nul
      SET /A C2 += 2
   )
)


Pause
Exit /B

:: Odd or Even Check Function
:Odd_or_Even <number> <variable> <Max>
:: Note  when combraing your variable Odd and Even have 1st Letter in CAPITAL
:: If you set a variable name, the result will be assigned to that variable, if you don't the result will be displayed on screen
SET "Even_or_Odd_num=%~1"
SET "Even_or_Odd_max=%~3"
IF NOT DEFINED Even_or_Odd_max SET "Even_or_Odd_max=1000"
For /L %%A In (1 2 %Even_or_Odd_max%) Do (
   IF "%Even_or_Odd_num%" EQU "%%A" SET "Even_or_Odd_Var=Odd" & Goto :Even_or_Odd_Next
)
:: This option will be validated if it wasn't odd number
SET "Even_or_Odd_Var=Even"
:Even_or_Odd_Next
(
ENDLOCAL
IF "%~2" NEQ "" SET "%~2=%Even_or_Odd_Var%"
IF "%~2" EQU "" Echo %Even_or_Odd_Var%
)
Goto :EOF

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Get control values for Odd/Even pages
if /I "%1" equ "EVEN" (
   set order=N
   set adjust=0
) else (
   set order=-N
   set adjust=1
)

rem Generate the list of files in the right order
dir /B /O%order% *.jpg > fileList.txt

rem Get the number of files
for /F %%a in ('find /c /v "" ^< fileList.txt') do set files=%%a

rem Get the number of the first new file that will be renamed in the previous order
set /A nextNumber=10000 + files*2 - adjust

rem Rename the files
set lastRename=
for /F %%a in (fileList.txt) do (
   ren %%a HP!nextNumber:~-4!.jpg 2> NUL
   if !errorlevel! gtr 0 (
      set lastRename=%%a HP!nextNumber:~-4!.jpg
   )
   set /A nextNumber-=2
)

rem Do the last rename, if any
if defined lastRename (
   ren %lastRename%
)

Code: Select all

batchfilename EVEN

Code: Select all

batchfilename ODD

Code: Select all

ren %%a HP!nextNumber:~-4!.jpg 2> NUL

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Get control values for Odd/Even pages
if /I "%1" equ "EVEN" (
   set order=N
   set adjust=0
) else (
   set order=-N
   set adjust=1
)

rem Generate the list of files in the right order
dir /B /O%order% *.jpg > fileList.txt

rem Get the number of files
for /F %%a in ('find /c /v "" ^< fileList.txt') do set files=%%a

rem Get the number of the first new file that will be renamed in the previous order
set /A nextNumber=10000 + files*2 - adjust

rem Move and rename the files
for /F %%a in (fileList.txt) do (
   move %%a "C:\The folder\HP!nextNumber:~-4!.jpg"
   set /A nextNumber-=2 )
)