tralkz
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
rem Заносим текущие дату и время в переменную:
set now=%TIME:~0,-3%
set now=%now::=%
set now=%now: =0%
set now=%DATE:~-4%-%DATE:~3,2%-%DATE:~0,2%_%now%
rem Создаем директорию в рабочем каталоге с именем в виде текущих даты и времени:
md "%userprofile%\Рабочий стол\СКАНЫ\%now%"
rem Делаем созданную директорию рабочей:
pushd "%userprofile%\Рабочий стол\СКАНЫ\%now%"
rem Предлагаем ввести пользователю имя будущего файла; счетчик файлов устанавливаем в значение "1"; устанавливаем расширение файла
set /p "filename=Введите имя файла: "&set /a count=1&set ext=.jpg
rem Для каждого файла в текущем каталоге выполняем процедуру проверки наличия файла с тем же именем:
for %%g in (%~dp0%now%) do call :isfile %filename%%count%%ext%
rem Процедура проверки наличия файла с желаемым именем:
:isfile
rem Если такой файл в папке уже есть,...
if exist %~1 (
rem ..., то вывести на экран предупреждение об этом:
echo "%~nx1 exist"
rem ...и запустить процедуру увеличения счетчика на единицу
call :exec set /a count+=1
rem А если такого файла в папке еще нет, ...
) else (
rem ..., то вывести на экран сообщение о возможности сканирования...:
echo "%~nx1 not found - can to scan!"
rem ...и запустить процедуру сканирования:
goto scanning
rem После выполнения сканирования заканчиваем процедуру проверки наличия файла и перенаправления на сканирование
goto :eof
)
rem После выполнения процедуры увеличения счетчика заканчиваем процедуру проверки наличия файла и перенаправления на сканирование
goto :eof
rem Процедура увеличения счетчика файлов на единицу
:exec
rem Выполняем команду увеличения счетчика, переданную в данную процедуру в виде аргумента при ее вызове
%*
rem Увеличив счетчик, заканчиваем данную процедуру и возвращаемся к окончанию процедуры проверки начличия файла и перенаправления на сканирование
goto :eof
rem Процедура сканирования
:scanning
rem Производим сканирование и сохранение полученного файла в нужную директорию
rem "%programfiles%\IrfanView\i_view32.exe" /scanhidden /dpi=(200,200) /convert="%userprofile%\Рабочий стол\СКАНЫ\%now%\%filename%%count%%ext%"
rem Выводим сообщение об окончании сканирования
echo "Scan completed"
rem заканчиваем процедуру сканирования
goto :eof
:eof
|
