Задачи на bat-файлах 4 - [16] :: Microsoft Windows :: Компьютерный форум Ru.Board

Dieselman

Цитата:

Не подскажите ещё как добавить :переименование каталога,создание нового,вывод даты и времени создания каталога?

Это уже мини-файловый менеджер получается :-)

Код:

@echo off
setlocal enabledelayedexpansion

set start_folder=%CD%

:quest
cls
set folder_num=
set name=
set new_name=
set choice=
echo Список подкаталогов текущего каталога ^(%CD%^):
set countdir=0
for /f "tokens=*" %%a in ('dir /b /a:d /o:n') do (
set /a countdir+=1
echo [!countdir!] %%a
)

echo.
echo Перед Вами список текущих каталогов. Ваши действия?
echo a № - переход в каталог с указанным номером;
echo d № - удаление каталога с указанным номером;
echo r № новое название - переименование каталога с указанным номером;
echo m название - создание нового каталога;
echo t № - вывод даты и времени создания каталога с указанным номером;
echo u - переход на каталог выше;
echo x - выход

set /p choice=

for /f "tokens=1,2*" %%a in ('echo %choice%') do (
if %%a==a (
set folder_num=%%b
goto perehod
)

if %%a==d (
set folder_num=%%b
goto delete
)

if %%a==r (
set folder_num=%%b
set new_name=%%c
goto rename
)

if %%a==m goto create

if %%a==t (
set folder_num=%%b
goto date
)

if %%a==u goto up

if %%a==x (goto exit) else (
echo
echo Неверные параметры
pause
goto quest
)
)

:perehod

if not defined folder_num (
echo Не указан номер каталога
pause
goto quest
)

set cdir=0
for /f "tokens=*" %%a in ('dir /b /a:d /o:n') do (
set /a cdir+=1
if /i !cdir! equ %folder_num% (
cd "%%a"
goto quest
)
)

goto quest

:delete

if not defined folder_num (
echo Не указан номер каталога
pause
goto quest
)

set cdir=0
for /f "tokens=*" %%a in ('dir /b /a:d /o:n') do (
set /a cdir+=1
if /i !cdir! equ %folder_num% (
rd "%%a" /s
goto quest
)
)

goto quest

:rename

if not defined folder_num (
echo Не указан номер каталога
pause
goto quest
)

if not defined new_name (
echo Не указано новое название каталога
pause
goto quest
)

set cdir=0
for /f "tokens=*" %%a in ('dir /b /a:d /o:n') do (
set /a cdir+=1
if /i !cdir! equ %folder_num% (
move "%%a" "%new_name%"
goto quest
)
)

goto quest

:create

for /f "tokens=1*" %%a in ('echo %choice%') do (
set name=%%b
)

if not defined name (
echo Не указано название нового каталога
pause
goto quest
)

md "%name%"

goto quest

:date

if not defined folder_num (
echo Не указан номер каталога
pause
goto quest
)

set cdir=0
for /f "skip=7 tokens=*" %%a in ('dir /a:d /o:n') do (
set /a cdir+=1
if /i !cdir! equ %folder_num% (
echo %%a
pause
goto quest
)
)

goto quest

:up
cd..
goto quest

:exit
cd %start_folder%
goto :eof

Elroir
Спасибо :-)

Добавлено:
Dieselman

Цитата:

1. На диске A надо скрыть файлы(ATTRIB +h) созданые после определённой даты(например 01.01.2000),дата задаётся с клавиатуры.

Другая твоя задача идеально решается при помощи утилиты Forfiles Скачай ее и кинь в папку %windir%\system32

Сам батник прост:

Код:

@echo off
set date=%1
forfiles -pa:\ -s -d+%date% -c"CMD /C attrib +h @FILE"

Батник запускается с параметром - датой. Формат даты ddmmyyyy Например 01012000

Модерирует : KLASS, IFkO
evle (19-03-2008 19:44): Лимит страниц. Задачи на bat-файлах 5	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103