CMD/BAT - [решено] Создание папок исходя из дат создания файлов и перемещение их в эти папки

[mezzin]

megaloman, вы монстр, Спасибо еще раз!

[mezzin]

а как сделать так чтобы создавались папки вот так 2017.01.25






Цитата megaloman:



@Echo Off

SetLocal EnableExtensions EnableDelayedExpansion

Set "Dir=Dir /A:-D /O:D /T:W"

rem Set "Dir=Dir /A:-D /O:D /T:C"

Call :Moving "Z:\Old" "*.*" "Z:\Old"

Call :Moving "Z:\Откуда" "*.*" "Z:\Куда"

Call :Moving "Z:\Tralala" "*.*" "Z:\Kuku"

GoTo :Eof

:Moving

rem %1-откуда, %2-маска, %3-куда

Pushd %1

Set "DOld="

FOR /F "usebackq tokens=1,3,*" %%i IN (`%Dir% "%~1\%~2" 2^>nul`) DO (

Set "DNew=%%i"

Set "DNew=!DNew:~2,1!!DNew:~5,1!"

If "!DNew!"==".." If /I Not "%%k"=="%0" (

Set "DNew=%%i"



Добрый вечер, а как сделать так чтобы создовалась одна папка типа 2017.01.25

If /I Not "!DOld!"=="%%i" (

Set "NDir=%~3\!DNew:~6,4!\!DNew:~3,2!\!DNew:~0,2!\"

rem Set "NDir=%~3\!DNew:~6,4!_!DNew:~3,2!_!DNew:~0,2!\"

MD "!NDir!" 2>nul

Set "DOld=%%i"

)

move "%%k" "!NDir!" 1>nul

)

)

popd

CMD/BAT - [решено] Создание папок исходя из дат создания файлов и перемещение их в эти папки

[megaloman]

super_yura_man@vk, Было

Код:

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

Set "NDir=%~3\!DNew:~6,4!\!DNew:~3,2!\!DNew:~0,2!\"
rem Set "NDir=%~3\!DNew:~6,4!_!DNew:~3,2!_!DNew:~0,2!\"

Сделайте

Код:

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

rem Set "NDir=%~3\!DNew:~6,4!\!DNew:~3,2!\!DNew:~0,2!\"
Set "NDir=%~3\!DNew:~6,4!.!DNew:~3,2!.!DNew:~0,2!\"

[super_yura_man@vk]

А так чтобі оно через точку біло а не нижнюю черту



все нашел