Создание папки внутри существующей с изменением имени

Serge Yolkin

Если вопрос действительно был дурацкий - прошу прощения, просто предложить вариант сразу не мог по времени (за комплимент на счет 2 минут - все равно спасибо)

Код: Выделить всё

begin 644 XY.zip
M4$L#!!0````(`"-^.#TF?_7D.P$``*,!```&````6%DN8VUD99#?2L,P%,:O
M#>0%O#IF!#:1;=WEH&!M.AS8372@0J%T:\HRLV1T05K&?`>?00;^P7?R$7P$
MT](;\3+?]^7WG7/.@\52PS3+,)H)(SGX.4^,T`KNXP>,;KFYTHM$0J"2N>2,
MRZ3D:5!L$K6U(8SJ"+1\E_K3,/0F++B)K[W9)8WNA%JLTZY0`J.<KZ')[=)<
M//'],-IM$K/<1V$Y$I)W>6$JF)]("4-O`(3ZC!*,1CJ'7@;$Z$>NMJYS=@HI
MEV*]=6,"E`H8*V@3VO(HZ0#3T,;HJ&ZZ<"E=V<<X@XDVP'@F%$^M#D$AC#5"
M5I<,B4LC"XI7>DZLW$S@@(7ZM%;TIH1>V0C_/D55^4F+G9`.1A4;>G.,+*$Y
M#7/I<^'\L0:-Y5E+-5:U_<OA^_7P#C^?'V]?T![TG;Y%'O\"4$L!`C\`%```
M``@`(WXX/29_]>0[`0``HP$```8`)``````````@`````````%A9+F-M9`H`
M(````````0`8``#ELWW>6\L!`.`]YUE;RP&`<S]DUEO+`5!+!08``````0`!
+`%@```!?`0``````
`
end
sum -r/size 23095/461

Batya · Сообщение **Batya** » Пт сен 24, 2010 17:31

Serge Yolkin
Кстати, а так ли уж важно в данном случае (как и в некоторых других) выкладывать cmd запакованным?
В этом XY.cmd, по-моему, нет ничего специфичного, что может порезаться движком форума.
Лучше выкладывай запакованные только если без этого никак не передать точность работы батника.
Просто иногда лень запиматься копи-пастом и распаковкой ради просмотра нескольких строчек кода. Но, если они видны явно, то посмотреть интересно

Flasher

Ну тогда я выложу

:

Код: Выделить всё

@Echo Off
Title Creation X_Y
SetLocal EnableDelayedExpansion

Set #C=%COMMANDER_PATH%\Wincmd.ini
rem Set #C={drive}:\{path}\MyFile.ext

Call :A2 "%CD%"
For /f "tokens=1,* delims=_" %%i In ("%#A%") Do (
	Set #B=%%j
	If Not Defined #B Exit
	MD "%CD:"=%\%%i_job"
	Call :A1 "%#C%"
	Copy /y "%#C%" "%CD:"=%\%%i_job\%#A%!#D!")
Exit /b
:A1
Set #D=%~x1
Exit /b
:A2
Set #A=%~n1
Exit

Сергей Ёлкин (2010)

Serge Yolkin

Flasher
Спасибо. Просто, в рамках этого раздела форума, и сам стал действовать на автомате.