копирование файлов через условие if
. Если в каталоге d:\Temp\MyFont\ не существует файлов-шрифтов, скопи-
руйте любые три из системного каталога 21c:\Windows\Fonts\. В противном случае выведите сообщение «Fonts exist»(Шрифты присутствуют).
|
Код:
@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
)
|
Код:
@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%\"
)
)
|
Что то не получается ни первым , ни с вторым кодом.
|
код
Цитата:
@echo off
IF exist d:\temp\SS\Ariac*.ttf (
echo EXIST!!!
) ELSE (
Xcopy C:\Windows\Fonts\Arial*.ttf d:\temp\SS\
echo FONTS TO COPY!!!
)
echo.
Pause
|
|
Время: 21:14.
© OSzone.net 2001-
