DosTips.com

Code: Select all

@echo off
:: Version 2.1
:: copy random MP3/WMA files

set numfiles=100
set "target=H:\Music"

set tempfile2="%temp%.\randfile.txt"
set "lines="
set n=0
dir *.wma *.mp3 /b /a:-d >%tempfile2% 2>nul
if errorlevel 1 (
echo No MP3/WMA files to play in this folder
echo.
pause
goto :eof
)

for /f "delims=" %%a in ('find /c /v "" ^<%tempfile2%') do set lines=%%a

:loop
for /f "delims=" %%c in (
'GAWK "BEGIN{srand();rand();t=int(%LINES%*rand())+1}NR==t" %tempfile2%'
) do (
if not exist "%target%\%%~nxc" (
echo copying %n% - "%%c"
copy /b "%%c" "%target%" >nul
if errorlevel 1 (
echo Error - is %target% full?
pause
goto :EOF
)
set /a n=n+1
)
)
ping -n 3 localhost >nul

if %n% LSS %numfiles% goto :loop

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Get file names and create input order vector
cd /D j:\music
set n=0
set input=
for %%f in (*.mp3) do (
   set /A n+=1
   set "file[!n!]=%%f"
   set input=!input! !n!
)
set "input=%input% "

rem Sort input vector into output random order vector
set output=
for /L %%i in (%n%,-1,2) do (
   set /A "randIndex=(!random!*%%i)/32768+1"
   call :MoveInputToOutput !randIndex!
)
set output=%output%%input%

rem Copy names in random order
for %%i in (%output%) do (
    copy "!file[%%i]!" H:\music
)
goto :EOF

:MoveInputToOutput randIndex
for /F "tokens=%1" %%n in ("%input%") do (
   set output=!output! %%n
   set input=!input: %%n = !
)
exit /B