DosTips.com

Code: Select all

set zero=000
REM for /f "delims=" %%a in ('dir "E:\" /b /o:n') do (
for /r "E:\"  %%a in (.) do (
 pushd "%%a"
    for /f "delims=" %%j in ('dir /b/a-d/on ^| findstr /ile ".flac .mp3"') do set VrOldName=%%j& set VrFile=%%~nxj& set /a Nincr+=1& call :renaming
  popd)
:renaming
if /i %Nincr% GTR 9 set zero=00
if /i %Nincr% GTR 99 set zero=0
if /i %Nincr% GTR 999 set zero=
ren "%VrOldName%" "%zero%%Nincr%_%VrFile%"

Code: Select all

 jren "(.*)(\.mp3|\.flac)$" "$n+'_'+$1+$2" /nbeg 1 /npad 4 /j /i /s /pm "/p:**"

Code: Select all

setlocal
set process=@echo ren
::set process=ren
set prompt=$g$s
set "Folder=e:\Music" 
for /f "delims= " %%T in ('robocopy /L . . /njh /njs')do set "TAB=%%T"
for /f "tokens=*delims=1" %%x in ('
 ((for /l %%n in (1 1 9998^) do @echo :^) ^&robocopy /L /s /njh "%Folder%\." ".. ListOnly ..\." *.mp3 *.flac /fp /ns /nc /njs ^) ^
 ^|find ":" ^|findstr /n :\\ ^|findstr /b .....: ^|sort /r
 ')do @for /f "tokens=1*delims=:%tab% " %%o in ("%%x." )do %process% "%%p" "%%o_%%~nxp"

pause

Code: Select all

@echo off
setlocal
set "process=@echo ren"
rem set process=ren
set "Folder=d:\Music"
set "Files=*.mp3 *.flac"

 rem END Settings
set prompt=$g$s
for /f "delims= " %%T in ('robocopy /L . . /njh /njs')do set "TAB=%%T"
set "tempf=%temp%\RC_%time::=%"
for /f %%c in ('
 robocopy /L /s /njh "%Folder%\." ".. ListOnly ..\." %files% /fp /ns /nc /njs /log:"%tempf%" /tee ^|find /c "%tab%"
 ')do set /a C=%%c
set/as=1
<"%tempf%" (for /f "Delims=:" %%c in ('find "%tab%"^|findstr /n .^|findstr "^10*\>"')do set /a S=%%c,N=%%c+c,B=N/S)
for /l %%n in (0 %S% %N%)do set/a E=10*%%n-2
@echo on
@ <"%tempf%" (
for /f "tokens=*delims=%B%" %%x in (
 ' ((for /l %%n in (1 1 %E%^)do @echo -^) ^&find "%tab%" ^)^|findstr /n : ^|findstr /b %B% ^|sort /r
 ')do @for /f "tokens=1*delims=:%tab% " %%o in ("%%x." )do %process% "%%p" "%%o_%%~nxp"
) ||>&2 type "%tempf%"
@echo off
pause
exit /b

Code: Select all

ex : 01_Folder1, 02_Folder2,... /// 0001_MusicFile1, 0002_MusicFile2...

Code: Select all

ex :
   04_FolderTitleArtist
             |_    04_SubFolderTitleAlbum
                     |_   05_AlbumCD1
                            000n_MusicFilex1
                            000n+1_MusicFilex2
                            ....
                     |_   06_AlbumCD2
                            000m_MusicFiley1
                            000m+1_MusicFiley2
                            ....

Code: Select all

@echo OFF
setlocal
set "process=@echo ren"
rem set process=ren
set "Folder=d:\music"
set "Files=*.mp3 *.flac"
 rem Setting Directory and File prezero
set /a DN=100 ,FN=10000

 rem END Settings
set prompt=$g$s
for /f "delims= " %%T in ('robocopy /L . . /njh /njs') do set "TAB=%%T"
set "tempf=%temp%\RC_%time::=%"
set /a DN*=10 ,DN+=1 ,FN*=10 
 rem If Error stop
>"%tempf%L" robocopy /L /s /njh "%folder%\\" ".. ListOnly ..\\" %files% /fp /nc /bytes /njs 
if errorlevel 16 type "%tempf%L" &del "%tempf%L" &pause &exit /b 
@ <"%tempf%L" >"%tempf%" (
  for /f "skip=1tokens=1-3delims=%tab%" %%D in ('find "%tab%"')do @(
    if :%%F==: (set "Fname=%%E"
      set /a P=DN
      set "B= "
      for /f "delims=0 " %%n in ("%%D")do @set /a DN+=1
    )
    if NOT :%%F==: (set "Fname=%%F"
      set /a FN+=1 ,P=FN
      set "B="
    )
    setlocal enabledelayedexpansion
    for /f "delims=" %%L in ("!B!!P:~2! !Fname!.")do @endlocal&echo %%L
  )
)
del "%tempf%L" 
@echo on
@for /f "tokens=1*" %%i in ('sort /r "%tempf%"')do %process% "%%~j" "%%i_%%~nxj" 
@echo OFF
del "%tempf%"
pause
exit /b

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Folders will have a two-digits numeric prefix
rem Folders prefix will increment for *ALL FOLDERS* in the tree
set "folder=100"
call :ProcessThisFolder
goto :EOF


:ProcessThisFolder

echo/
echo Folder: %cd%

rem Rename the files in this folder
rem Files will have a four-digits numeric prefix
rem Files prefix will *RESET TO ZERO* in each folder
set "file=10000"
for /F "delims=" %%f in ('dir /A:-D /B 2^>NUL') do (
   set /a file+=1
   ECHO ren "%%f" "!file:~1!_%%f"
)

rem For each subfolder in this folder:
for /F "delims=" %%d in ('dir /A:D /B 2^>NUL') do (
   rem Process it recursively
   cd "%%d"
   call :ProcessThisFolder
   cd ..
   rem Rename it
   set /A folder+=1
   ECHO ren "%%d "!folder:~1!_%%d"
)
exit /B

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Folders will have a two-digits numeric prefix
rem Folders prefix will increment for *ALL FOLDERS* in the tree
set "folder=100"

rem Files will have a four-digits numeric prefix
rem Files prefix will increment for *ALL FILES* in the tree
set "file=10000"

call :ProcessThisFolder
goto :EOF


:ProcessThisFolder

rem For each subfolder in this folder:
for /F "delims=" %%d in ('dir /A:D /B 2^>NUL') do (
   rem Enter to it 
   cd "%%d"

   rem Rename the music files in this folder
   set "anyFileHere="
   for /F "delims=" %%f in ('dir /A:-D /B *.flac *.mp3 2^>NUL') do (
      set /a file+=1
      ren "%%f" "!file:~1!_%%f"
      set "anyFileHere=1"
   )

   rem If this folder contain any music file
   if defined anyFileHere (
      rem Rename the folder
      set /A folder+=1
      cd ..
      ren "%%d" "!folder:~1!_%%d"
      cd "!folder:~1!_%%d"
   )

   rem Recursively process this folder
   call :ProcessThisFolder

   rem And go back to parent
   cd ..
)
exit /B

Code: Select all

 for /r D:\music %i in (*) do @for /f "delims=" %A in ('dir /s /b "%i"' ) do @if not exist %A echo %A not found!

Code: Select all

@echo OFF
setlocal
set "process=echo ren"
 rem set process=ren
set "Folder=d:\mmtest"
set "Files=*.mp3 *.flac"
 rem Setting Directory and File prezero
set /a DN=100 ,FN=10000

 rem this is a temporary Folder for Sorting and renaming only
set "tempFolder=%temp%\nonExistingFolder"

 rem use call with copies for testing 
 rem call :seperate 
if :SUB==only * You want test with seperate Files * & @(
:seperate
rd /s /q "%folder%" 2>nul >nul
md "%folder%"
robocopy /create /mir D:\music "%folder%" /njh /fp /ndl /nfl /njs
exit /b
)

 rem END Settings
rd /s /q "%tempfolder%" 2>nul >nul
md "%tempfolder%"
call :subST_LW Q "%%folder%%"
call :subST_LW R "%%tempfolder%%"
if errorlevel 3 pause &exit /b 1
set Substlist= %Q% %R%
echo temporary Folder is filled ...
robocopy /create /mir %Q% %R% /njh /njs /ndl /nfl
pushD %R%
echo Rename ... 
call :process
popD
for %%S in (%SubstList% )do subst /D %%S
rd /S /Q "%tempfolder%"
echo END script
pause
exit /b

:process 
@set "D="
@for %%F in (%files%)do @( set/aFN+=1,D=1
  setlocal enabledelayedexpansion
    for %%N in (!FN:~1!)do @( endlocal
      if NOT exist %Q%%%~pnxF >&2 echo file %Q%%%~pnxF not found!
      if exist %Q%%%~pnxF %process% "%Q%%%~pnxF" "%%N_%%~nxF"
    )
  )
)
@if defined D set/aDN+=1
@for /D %%D in (*)do @( pushd %%D
  if not errorlevel 1 (
      call :process
      popD
      setlocal enabledelayedexpansion
      for %%N in (!DN:~1!)do @( endlocal
        if NOT exist %Q%%%~pnxD >&2 echo DIR %Q%%%~pnxD not found!
        if exist %Q%%%~pnxD %process% "%Q%%%~pnxD" "%%N_%%~nxD"
      )
    )
  )
)
@exit /b

:subST_LW outVar_LW VarPathToSubst
set "%1="
set "FreeDrive=Z Y X W V U T S R Q P O N M L K J I H G F E D C B A"
for %%i in (%FreeDrive%) do @if not defined %1 >nul subst %%i: %2 &&set %1=%%i:
if not defined %1 1>&2 echo Kein Freies Laufwerk gefunden!& exit /b 3
exit /b