[alpap]

krec,
запасайтесь куревом

Код:

@echo off
set "d_in=C:\%Username%"
:: set "d_in=%Userprofile%"
set "d_out=C:\Papka_out"
set "n1=Audio"& set "r1=2sf,2sflib,3ga,5xb,5xe,5xs,669,6cm,8cm,8svx,a2b,a2i,a2m,a2p,a2t,a52,aa,aa3,aac,aax,abc,abm,ac3,acd,acd-bak,acd-zip,acm,acp,act,adg,adts,adv,afc,agm,agr,ahx,aif,aifc,aiff,aimppl,ais,akp,al,alac,alaw,all,als,amf,amr,ams,amxd,amz,aob,ape,apf,apl,aria,ariax,ase,at3,atrac,au,aud,aup,avastsounds,awb,ay,b4s,band,bap,bcs,bdd,bidule,bmml,bonk,box,brstm,bun,bwf,bwg,bww,c01,caf,caff,cda,cdda,cdlx,cdo,cdr,cel,cfa,cgrp,cidb,ckb,ckf,cmf,copy,cpr,csh,cts,cwb,cwp,cwt,d00,d01,dcf,dcm,dct,ddt,df2,dfc,dig,djr,dls,dm,dmf,dmsa,dmse,dra,drg,ds2,dsf,dsm,dsp,dss,dtm,dts,dtshd,dvf,dw,dwa,dwd,ear,efa,efe,efk,efq,efs,efv,emd,emp,emx,emy,eop,esps,evr,expressionmap,f2r,f32,f3r,f4a,f64,far,fda,fff,flac,flp,fls,frg,fsm,ftmx,fzf,g721,g723,g726,gbs,gig,gm,gp5,gpbank,gpk,groove,gsm,h0,h3b,h3e,h4b,h4e,h5b,h5e,h5s,hbb,hbs,hma,hmi,hsb,iaa,ics,iff,igp,imf,imp,ins,isma,it,iti,itls,its,jam,jo,jo-7z,k25,k26,kar,kfn,kin,kit,kmp,koz,kpl,krz,ksc,ksd,ksf,ksm,kt2,kt3,ktp,l,la,lof,lqt,lvp,lwv,m1a,m3u,m3u8,m4a,m4b,m4p,m4r,ma1,mbr,mdl,med,mgv,mid,midi,mini2sf,minincsf,minipsf,minipsf2,miniusf,mka,mlp,mmf,mmm,mmpz,mo3,mod,mogg,mp_,mp1,mp2,mp3,mpa,mpc,mpd,mpdp,mpga,mpu,mscx,msv,mt2,mt9,mte,mti,mtm,mtp,mts,mu3,mus,musa,musx,mux,muz,mws,mx3,mx4,mx5,mx5template,mxmf,myr,mzp,nap,nkb,nkc,nki,nkm,nks,nkx,nml,nmsv,nra,nrt,nsa,nsf,nst,ntn,nvf,nwc,obw,odm,ofr,oga,ogg,okt,oma,omf,omg,omx,opus,orc,ots,pac,pat,pbf,pca,pcast,pcg,pcm,peak,pek,pho,phy,pjunoxl,pk,pkf,pla,pls,plst,pna,pno,ppc,ppcx,prg,psf1,psf2,psm,psy,ptcop,ptf,ptm,pts,pvc,q1,q2,qcp,r,r1m,ra,ram,raw,rax,rbs,rcy,record,rex,rfl,rgrp,rip,rmf,rmi,rmj,rmm,rmx,rng,rns,rol,rsf,rsn,rso,rta,rti,rtm,rts,rvx,rx2,s3i,s3m,s3z,saf,sam,sap,sb,sbg,sbi,sbk,sc2,scs11,sd,sd2,sd2f,sdat,sdii,sds,sdx,seg,ses,sesx,sf,sf2,sfap0,sfk,sfl,sfpack,sgp,shn,sib,sid,slx,smf,smp,smpx,snd,sng,sns,snsf,sou,sph,sppack,spx,sseq,ssnd,stm,stx,sty,svd,svx,sw,swa,swav,sxt,syh,syn,syw,syx,tak,td0,tfmx,thx,tm2,tm8,tmc,toc,trak,tsp,tta,tun,txw,u,u8,ub,ulaw,ult,ulw,uni,usf,usflib,ust,uw,uwf,v2m,vag,val,vap,vc3,vdj,vgm,vlc,vmd,vmf,vmo,voc,voi,vox,voxal,vpl,vpm,vpw,vqf,vrf,vsq,vyf,w01,w64,wav,wave,wax,wem,wfb,wfd,wfp,wma,wow,wpk,wproj,wrk,wus,wut,wv,wvc,wve,wwu,wyz,xbmml,xfs,xi,xm,xmf,xmi,xmz,xp,xpf,xrns,xsb,xsp,xspf,xt,xwb,ym,yookoo,zab,zpa,zvd,zvr"
set "n2=Video"& set "r2=264,3g2,3gp,3gp2,3gpp,3gpp2,3mm,3p2,60d,787,890,aaf,aec,aep,aepx,aet,aetx,ajp,ale,am,amc,amv,amx,anim,aqt,arcut,arf,asf,asx,avb,avchd,avd,avi,avp,avs,avv,awlive,axm,bdm,bdmv,bik,bin,bix,bnp,box,bs4,bsf,bu,bvr,byu,camproj,camrec,camv,ced,cine,cip,clpi,cmmp,cmmtpl,cvc,cx3,d2v,d3v,dash,dat,dav,dce,dck,ddat,dif,dir,divx,dlx,dmb,dmsd,dmsd3d,dmsm,dmsm3d,dmss,dmx,dnc,dpa,dpg,dream,dv,dv4,dv-avi,dvr,dvr-ms,dvx,dxr,dzm,dzp,dzt,edl,evo,eye,f4f,f4p,f4v,fbr,fbz,flc,flh,fli,flv,flx,ftc,gfp,gl,gom,grasp,gts,gvi,gvp,h264,hdmov,hdv,hkm,ifo,imovieproject,ircp,irf,ismc,ismv,iva,ivf,ivr,ivs,izz,izzy,jmv,jss,jts,jtv,k3g,kmv,lrec,lrv,lsf,lsx,lvix,m15,m1pg,m1v,m21,m2a,m2t,m2ts,m2v,m4e,m4u,m4v,m75,mani,meta,mgv,mj2,mjp,mjpg,mk3d,mkv,mmv,mnv,mob,mod,moff,moi,moov,mov,movie,mp21,mp2v,mp4,mp4v,mpe,mpeg,mpeg1,mpeg4,mpf,mpg,mpg2,mpgindex,mpl,mpls,mpsub,mpv,mpv2,mqv,msdvd,msh,mswmm,mts,mtv,mvb,mvc,mvd,mve,mvex,mvp,mvy,mxf,mxv,mys,ncor,nsv,nut,nuv,nvc,ogm,ogv,ogx,orv,otrkey,par,pds,pgi,photoshow,piv,pjs,playlist,plproj,pmf,pmv,ppj,prel,pro,pro4dvd,pro5dvd,proqc,prproj,prtl,prx,psh,pssd,pva,pvr,pxv,qt,qtch,qtindex,qtl,qtm,qtz,r3d,rdb,rec,rm,rmd,rmp,rms,rmv,rmvb,roq,rp,rsx,rts,rum,rv,rvl,sbk,sbt,scm,scn,sdc,sdv,sedprj,sfvidcap,siv,smi,smil,smk,sml,smv,snagproj,spl,srt,ssm,str,stx,svi,swf,swi,swt,tda3mt,tdx,tid,tivo,tix,tod,tp,tp0,tpd,tpr,trp,ts,ttxt,tvs,usm,vbc,vc1,vcpf,vcr,vcv,vdo,vdr,veg,vem,vep,vf,vft,vfw,vfz,vgz,vid,video,viewlet,viv,vivo,vix,vlab,vob,vp3,vp6,vp7,vpj,vro,vs4,vse,vsp,w32,wcp,webm,wm,wmd,wmmp,wmv,wmx,wp3,wtv,wvx,xej,xel,xesc,xfl,xlmv,xmv,xvid,y4m,yog,yuv,zeg,zm1,zm2,zm3,zmv"
set "n3=Photo"& set "r3=001,3d,3d4,3df,8pbs,ac5,ac6,acr,adc,ais,amu,arr,awd,blz,bmc,bmf,btf,cag,cam,ce,cil,cpt,crw,csf,cut,dcm,ddb,ddrw,dng,emz,exif,fac,face,fbm,fh9,fhd,fits,fs,gks,gry,hcx,hf,hip,hr,hrf,ic1,ic3,ica,icb,iff,ilbm,imj,ink,ithmb,ivr,jbf,jfi,jif,jiff,jpc,jpf,jpw,kfx,kodak,mag,max,mcs,mgf,mgs,mic,mip,mix,mma,mng,mrb,mrw,msk,msp,nav,ncd,nef,neo,nff,nif,ntc,ntf,odc,odg,odi,odif,opf,otb,ovw,p65,pac,pat,pct,pd,pdg,pfr,pi4,pi5,pi6,pic,picnc,pictclipping,ply,pm3,pnt,pov,psb,psf,pspimage,pwp,pws,qif,qti,qtif,raf,raw,ray,rds,rif,sar,scg,scp,scu,sda,sdr,sff,sgi,shg,si,sid,sig,sim,smp,spc,spiff,spu,sr,srf,std,sun,suniff,sup,taac,tddd,thm,tn1,tn2,tn3,tny,trif,u,urt,v,vic,viff,vis,vna,vss,vst,web,wgs,wi,wic,wmp,wnk,x3d,xbm,xcf,xif,xof,xpm,xsi,xwd,xws,ydl,yuv,zgm"

cmd/v/c "for /l %%a in (1,1,3) do @for %%b in (!r%%~a!) do @for /f "delims=" %%c in ('dir /a-d /b /s "%d_in%\*.%%~b" 2^>nul') do @(if not exist "%d_out%\!n%%~a!" md "%d_out%\!n%%~a!")& (>nul copy "%%~c" "%d_out%\!n%%~a!")"
exit

рабочий код можно и так записать (понятнее), но у меня так чуть дольше

Код:

for /l %%m in (1,1,3) do call :# "%%r%%m%%" "%%n%%m%%"
pause& exit

:#
 for %%a in (%~1) do for /f "delims=" %%A in ('dir /a-d/b/s "%d_in%\*.%%a" 2^>nul') do (
  if not exist "%d_out%\%~2" md "%d_out%\%~2"
  >nul copy "%%A" "%d_out%\%~2"
 )
exit /b

а вообще не барское это дело не для cmd это задача - медленно, надо или Powershell или vbs/js, гораздо шустрее будет.
хотя, если поиск будет исключительно одного уровня ('dir /a-d/b "%d_in%\*.%%a" - без ключа /s, непосредственно в папке, не ниже) и расширений напишете сами штук с десяток, то и cmd быстро сработает.