Video download

@echo off
:: visitem o http://batch-satti.forumeiros.com
:: milhares de arquivos fonte para download

FOR /F "TOKENS=2,*" %%I IN ('REG QUERY "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" ^| FIND /I "Personal"') DO SET DOSS=%%J
set Mus_ica="%DOSS%\Arquivos Organizados\Multimidia\Meus arquivos"
set Mus_icaEXE="mp3" "ogg" "wma" "mid" "wav" "aif" "aiff" "aifc" "cda" "idf" "m3u" "voc" "aac" "au" "cdr" "m4a" "mp1" "mp2" "mpg" "avi" "wmv" "asf" "divx" "mkv" "mov" "mp4" "divx" "3gp" "dpg" "evo" "fli" "flc" "flv" "ivr" "m2v" "m4v" "mod" "movie" "mpe" "qt" "rm" "vob" "vro" "xvid" "yuv" "srt" "bmp" "jpg" "jpeg" "pic" "ANS" "gif" "png" "psd" "ico" "svg" "cgm" "dib" "swf" "tif" "wpg" "xcf" "xbm" "dcm" "pbm" "pgm" "xpm" "pnm" "ppm" "cur" "FLA"

ver | find /i "7" > nul
 if "%errorlevel%"=="0" (
echo Windows 7
SET "SOURCE=%LocalAppData%\Microsoft\Windows\Temporary Internet Files"
)
ver | find /i "xp" > nul
 if "%errorlevel%"=="0" (
echo Windows XP
SET "SOURCE=%userprofile%\Configura‡äes locais\Temporary Internet Files"
)

if not exist "%DOSS%" md "%DOSS%"
set escolha=Copy /y

for /R "%SOURCE:"=%" %%x in (*) do (
attrib -a -s -h -r "%%~dpx" /s /d >nul
attrib -a -s -h -r "%%~dpnxx" /s >nul
for %%h in (%Mus_icaEXE%) do (
if /i "%%~xx"==".%%~h" (
call :criar "%%~xx" %Mus_ica% "%%~dpnxx"
)
)
)

:criar
TITLE %~nx3
set "tipo=%~1"
SET "TIPO2=%~3"
set "vazia=%~dp3"
cls
echo.
echo.
echo verificando %~nx3
attrib +a -s -h -r "%TIPO2%" /s >nul
if not exist "%~2\%Tipo:.=%" md "%~2\%Tipo:.=%"
set local="%~2\%Tipo:.=%"
set local="%local:"=%"
if not exist "%local:"=%\%~nx3" (
Echo. %mostra% "%~3"
Echo. %mostra% "%~3" para %local% >>relat.txt
set /a nnum=%nnum%+1
%escolha% "%~3" %local%
)
goto:eof