[amel27]

Код:

@Echo Off

Set $W=D:\Temp
Set $F=%windir%\Fonts

If Not Exist "%$W%\*.ttf" If Not Exist "%$W%\*.fon" (
  For /F "Tokens=1* Delims=[]" %%i In ('DIR /B/A-D "%$F%\*.ttf" "%$F%\*.fon"^|Find /V /N ""') Do (
    If %%i LSS 4 Copy "%$F%\%%j" "%$W%\"
  )
)