Код:
@Echo Off
Cls
Set Where=d:\Temp\MyFont
Set System=C:\WINDOWS\Fonts
Set Log=0
FOR %%i IN ("%Where%\*.ttf*","%Where%\*.fon*") DO Set Log=1
If %Log%==0 (
FOR %%i IN ("%System%\*.fon","%System%\*.ttf") Do Call :CopyN "%%i"
GoTo :Eof
:CopyN
Set /A Log=%Log%+1
If %Log% LEQ 3 Copy %1 "%Where%\" >nul
GoTo :Eof
) Else (
Echo *** Fonts exist
Pause
)
