遷移圖片目錄的bat代碼

@echo off
setlocal enabledelayedexpansion
::開啟變量延遲，加入自定義變量名
set sourpic=e:\pic
::定義圖片源
set despic=e:\img
::定義圖片存儲(chǔ)地址
set pictype=*.jpg
::定義圖片類型
set log=e:\log.txt
::定義Log信息，這個(gè)每次都會(huì)重新生成

rem 處理開始的日志記錄
echo 圖片取自:%sourpic% >%log%
echo 上傳目錄:%despic% >>%log%
echo 圖片類型:%pictype%>>%log%
echo 開始時(shí)間:%date%%time%>>%log%

::遍歷文件夾后，在逐一遍歷相應(yīng)文件夾，同時(shí)拷貝圖片、日志記錄、刪除圖片

for /d %%i in (%sourpic%\*) do (
::遍歷root文件夾,獲取子文件夾名稱
set folder= %%~ni
echo 對(duì)!folder!文件夾進(jìn)行操作
echo ###對(duì)!folder!文件夾進(jìn)行操作:%date%%time%>>%log%
rem 開始對(duì)服務(wù)器的目錄進(jìn)行判斷
Call :serverfolder %despic% !folder! %log%
rem 開始遍歷此文件夾中的圖片文件
Call :copyfile %%~fi !folder!
)
echo %date%%time%--操作完成>>%log%
pause
exit

rem 對(duì)目標(biāo)服務(wù)器的目錄進(jìn)行管理
:serverfolder
if exist %1\%2 (
echo 服務(wù)器端存在目錄:%1\%2
) else (
echo 開始創(chuàng)建目錄:%1\%2
md %1\%2
if %ERRORLEVEL% ==0 (
echo 服務(wù)器端創(chuàng)建%1\%2成功！>>%3
)else (
echo 服務(wù)器端創(chuàng)建%1\%2失??！>>%3
)
)
goto:eof

rem 處理子文件夾的文件
:copyfile
for /r %1 %%i in (%pictype%) do (
echo 開始拷貝:%%i
echo %date%%time%--%%i>>%log%
copy %%i %despic%\%2\%%~ni%%~xi /y
if %ERRORLEVEL% ==0 (
echo 拷貝成功>>%log%
rem 開始執(zhí)行刪除工作
del %%i /q
if %ERRORLEVEL% ==0 (
echo 刪除成功>>%log%
)else (
echo 刪除失敗>>%log%
)
)else (
echo 拷貝失敗>>%log%
)
)
goto:eof