Код:
@Echo Off
Setlocal enabledelayedexpansion
Rem Путь к папке со скриншотами
Set "input_dir=c:\musor\input"
Rem Размер превьюшек
Set "maxsize=200,200"
Rem Число превьюшек в ряду
Set nummax=4
Rem Путь к папке со скриншотами на FTP (слеши прямые)
Set "ftp=http://tools.oszone.net/Jekson07/pict"
Rem Путь к папке с программой IrfanView
Set "Irfan=%ProgramFiles%\IrfanView\i_view32.exe"
If Exist "%input_dir%\links.txt" Del /f /q "%input_dir%\links.txt"
For /R "%input_dir%" %%i In (*) Do (
Set tmp_name=%%~ni
If Not "!tmp_name:~-3!"=="_rz" If Not %%~xi==.txt (
"%Irfan%" "%%i" /resize=^(%maxsize%^) /resample /aspectratio /convert="%input_dir%\%%~ni_rz%%~xi"
Set "urls=!urls![url=%ftp%/%%~nxi][img]%ftp%/%%~ni_rz%%~xi[/img][/url]"
Set /a num+=1
If !num! GEQ %nummax% (
Echo !urls!>>"%input_dir%\links.txt"
Set num=0
Set urls=
)
)
)
If Not !num!==0 Echo !urls!>>"%input_dir%\links.txt"
Exit
