[Bob256]

Как то так...

Код:

@echo off
setlocal enabledelayedexpansion

set Dest=Music Video Image Image\Fotoshop Program Text Text\Word Text\Exel 

set TextExt=.txt .rtf .pdf 
set Text\WordExt=.doc .docx
set Text\ExelExt=.xls .xlsx
set VideoExt=.avi .mpg .divx .xvid .mpeg .3gp .3gpp .3g2 .WMV .MOV .MKV .FLV .SWF .mpg4 .mp4 .m4v .flv
set MusicExt=.mp3 .wav .wma .flac .ac3 .aac .ogg .amr
set ImageExt=.bmp .gif .jpg .png .ico .jpeg
set Image\FotoshopExt=.psd .raw
set ProgramExt=.exe .lnk

set TextIcon=%SystemRoot%\system32\SHELL32.dll
set Text\WordIcon=%ProgramFiles%\Microsoft Office\Office14\WINWORD.EXE
set Text\ExelIcon=%ProgramFiles%\Microsoft Office\Office14\EXCEL.EXE
set VideoIcon=%SystemRoot%\system32\SHELL32.dll
set MusicIcon=%SystemRoot%\system32\SHELL32.dll
set ImageIcon=%SystemRoot%\system32\SHELL32.dll
set Image\FotoshopIcon=
set ProgramIcon=%SystemRoot%\system32\SHELL32.dll

set TextIconIndex=126
set Text\WordIconIndex=1
set Text\ExelIconIndex=1
set VideoIconIndex=129
set MusicIconIndex=128
set ImageIconIndex=127
set Image\FotoshopIconIndex=
set ProgramIconIndex=36

cd "%userprofile%\Рабочий стол"
for %%D in (%Dest%) do (echo %%D
  if not exist %%D (md %%D
    attrib +r "%%D">nul
    echo.[.ShellClassInfo]>"%%D\Desktop.ini"
    echo.IconFile=!%%DIcon!>>"%%D\Desktop.ini"
    echo.IconIndex=!%%DIconIndex! >>"%%D\Desktop.ini"
    attrib +h "%%D\Desktop.ini">nul
  )
  for %%E in (!%%DExt!) do for %%F in (*%%E) do (
    set NewName=%%F
    if exist "%%D\%%F" for /L %%I in (99,-1,1) do if not exist "%%D\%%~nF %%I%%~xF" set NewName=%%~nF %%I%%~xF
    move "%%F" "%%D\!NewName!"
  )
)

иконки сам поправиш

[O L E G]

а к примеру, если у меня есть свои иконки, как их к папкам применить?

[Bob256]

если Text.ico рядом с батником то

Код:

  set TextIcon="%~dp0\Text.ico"
  set TextIconIndex=0

[O L E G]

Благодарен, скрипт разобрал, понял что да как,работает 100% СПС ))