Перемещение файлов по списку
Есть список файлов filelist.txt (с абсолютными путями), надо переместить файлы которые в списке в другую папку с сохранением структуры папок.
Например: из папки scr переместить файлы в dst
filelist.txt
c:\src\1.jpg ---> d:\dst\1.jpg
c:\src\sdf.jpg ---> d:\dst\sdf.jpg
c:\src\YYY\sdsdf.txt ---> d:\dst\YYY\sdsdf.txt
|
Код:
@Echo Off
cls
FOR /F "usebackq delims=" %%f IN ("D:\Delete\filelist.txt") DO Call :MoveFile "%%~f"
GoTo :Eof
:MoveFile
Set Out="%~dp1"
Set Out=%Out:"c:\src\="d:\dsc\%
Set Out=%Out:\"="%
Md %Out% >nul 1>nul 2>nul
Move %1 %Out%
|
Вот идея того, как избежать повторного запуска именно конкретного батника, при этом иметь возможность запускать любой другой батник с таким же контролем повторного запуска - на время работы создаём вспомогательный файл и после нормальной отработки его удаляем. При принудительном завершении батника этот файл придётся удалить вручную.
Код:
@Echo Off
cls
If Exist "%0.log" (
Echo *****************************************
Echo Предыдущий запуск батника- смотри файл:
Echo %0.log
Echo нормально не завершен
Echo *****************************************
Pause
GoTo :Eof
)
Echo %Date% %Time% >"%0.log"
FOR /F "usebackq delims=" %%f IN ("D:\Delete\filelist.txt") DO Call :MoveFile "%%~f"
Del "%0.log"
GoTo :Eof
|
megaloman, Твой вариант гораздо лучше, чем просто блокирование CMD.EXE
|
Ситуация такая: если после создания списка файлов в пупке s:\tor-s\OK появился новый файл, то нужно повторно перезапустить батник (или его часть, например с метки :Begine)
Код:
@Echo On
cls
If Not Exist t: GoTo :Eof
If Exist "%0.log" (
Echo *****************************************
Echo Предыдущий запуск батника- смотри файл:
Echo %0.log
Echo нормально не завершен
Echo *****************************************
GoTo :Eof
)
Echo %Date% %Time% >"%0.log"
chcp 1251
md T:\ss\1
rem :Begine
rem копирование исход в приход с созданием списка скопированных файлов
c:\nnbackup\nnbackup.exe copy -i "s:\tor-s\OK" -o "t:\SS\1" -s -v -list s:\tor-s\OK.txt -fp
FOR /F "usebackq delims=" %%f IN ("s:\tor-s\OK.txt") DO Call :MoveFile "%%~f"
:MoveFile
Set Out="%~dp1"
Set Out=%Out:"s:\tor-s\OK\="s:\films\%
Set Out=%Out:\"="%
Md %Out% >nul 1>nul 2>nul
Move %1 %Out%
Del "%0.log"
rem Удаление пустых папок
:again
for /f "tokens=*" %%i in (' dir /b /s /ad "s:\tor-s\OK" ') do 2>nul rd /q "%%i" && goto:again
GoTo :Eof
Может так:
читать дальше »
rem Проверка на присутсвие файлов в папке ОК
rem set sFolder=s:\tor-s\OK
rem >nul (dir /b "%sFolder%" | find.exe /v "") && goto :Begine
megaloman предложил:
Как вариант
Код:
Set Present=0
FOR %%i IN ("%sFolder%\*.*") DO Set Present=1
If %Present%==1 Echo Файлы есть
Но куда его ставить?? В конце батника, он не отрабатывается. |
Время: 01:42.
© OSzone.net 2001-
