[Petya V4sechkin]

чтобы имена архивов были заглавными буклами?

Воспользуйтесь утилитой FileCase

[njg]

Использовать добавочные программы не желательно...

Вот что нашел для для себя

Код:

@ECHO OFF
ECHO.

SET UCN=%~f1
SET UCN=N:a=A%
SET UCN=N:b=B%
SET UCN=N:c=C%
SET UCN=N:d=D%
SET UCN=N:e=E%
SET UCN=N:f=F%
SET UCN=N:g=G%
SET UCN=N:h=H%
SET UCN=N:i=I%
SET UCN=N:j=J%
SET UCN=N:k=K%
SET UCN=N:l=L%
SET UCN=N:m=M%
SET UCN=N:n=N%
SET UCN=N:o=O%
SET UCN=N:p=P%
SET UCN=N:q=Q%
SET UCN=N:r=R%
SET UCN=N:s=S%
SET UCN=N:t=T%
SET UCN=N:u=U%
SET UCN=N:v=V%
SET UCN=N:w=W%
SET UCN=N:x=X%
SET UCN=N:y=Y%
SET UCN=N:z=Z%

IF NOT EXIST "%~1" GOTO END
SET EXT=%~x1
SET LCEXT=%EXT:~-1%
IF /I "%EXT%"==".CAB" GOTO END
IF "%LCEXT%"=="_" GOTO END
IF EXIST "%~1\" GOTO COMPRESSCAB

IF EXIST "%TEMP%\modifype.tmp" DEL /F /Q "%TEMP%\modifype.tmp"
FOR /F "tokens=*" %%R IN ('MODIFYPE.EXE %~fs1 -c') DO SET MPEMSG=%%R
IF /I "%MPEMSG%"=="NO ERROR OCCURRED, HAVE A NICE DAY" GOTO COMPRESSFILE
IF /I "%MPEMSG%"=="FILE IS NOT A PE FILE" GOTO COMPRESSFILE
IF EXIST "%TEMP%\modifype.tmp" MOVE /Y "%TEMP%\modifype.tmp" %1>NUL
ECHO ERROR - MODIFYPE CAN'T PATCH "%~nx1"
PAUSE
GOTO END
:COMPRESSFILE

CD /D "%~dp1"
MAKECAB.EXE /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 "N%"
IF NOT %ERRORLEVEL% EQU 0 (PAUSE) ELSE (DEL /F /Q %1)
GOTO END
:COMPRESSCAB
CD /D %1
CABARC.EXE -m LZX:21 -p -r N "N%.CAB" *.*
IF NOT %ERRORLEVEL% EQU 0 PAUSE
:END

И еще вопрос: А как переводит имена файлов в верхний регистр скрипт UpdatePack? Как я не смотрел на файл Compress входящий в набор этого скрипта, так и не смог разобраться и настроить его под себя...