Новый участник
Сообщения: 2
Благодарности: 0
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
а как сделать так чтобы создавались папки вот так 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 »
|
|
Отправлено: 18:10, 25-01-2018
| #12
|
