בירור | אייקונים של תיקיות

@echo off
setlocal

:: usage: SetFolderIcons [/s] [folder...]
::
:: /s switch will process subfolders. Must be the first parameter if used.

set r=0
if /i "%~1" == "/s" (
  set r=1
  shift
)
if "%~1" == "" (
  call :process "%cd%"
  goto :eof
)
:chk
if exist "%~1\" (
  call :process %1
) else (
  echo Folder "%~1" is not found or invalid.
  goto :eof
)
shift
goto chk

:process
if not exist "%~1\folder icons\" goto :eof
set e=0
for %%A in ("%~1\folder icons\*.ico") do (
  if exist "%~1\%%~nA\" (
    echo %~1\%%~nA
    >nul attrib -h -r -s "%~1\%%~nA\desktop.ini"
    >"%~1\%%~nA\desktop.ini" (
      echo [.ShellClassInfo]
      echo IconResource=..\folder icons\%%~nA.ico,0
    )
    attrib +h +s "%~1\%%~nA\desktop.ini"
    attrib +r "%~1\%%~nA"
  )
)
if %r% == 1 (
  for /d %%A in ("%~1\*") do call :process "%%A"
)
goto :eof

בעיקרון הוא מצפה שיהיה לך תיקייה אחת ובתוכה כול שאר התיקיות

עכשיו אתה מריץ את הסקריפט עם נתיב לקובץ שיקר folder icons בתוכו תשים את כול האייקונים שלך

והאייקון יבוצע לפי שם כלומר האייקון עץ.ico ילך לתיקייה בשם עץ

בוא נגיד שהתקיות נמצאות ב ב C\myfiles אתה תיצור בתוך myfiles תיקייה בשם folder icons ובתוכה תשים את האייקונים שלך

לאחמ"כ תריץ את הפקודה הזאת

setfoldericons "c:\my files"

והיא תחפש בתוך התיקייה myfiles תיקייה בשם folder icons ותעשה את האייקון לכול התיקיות לפי שם קובץ האייקון

אם אתה רוצה גם את התיקיות בתוך התיקיות תוסיף s/ בהתחלה כלומר

setfoldericons /s "c:\my files"

אם אתה רוצה את כול התיקייה שהסקריפט רץ בה תכתוב

setfoldericons /s