批处理之家 - Powered by Discuz! Board

标题: [文件操作] [已解决]请教，如何将C级目录下的各个文件移动到B级目录下的各个文件夹中？ [打印本页]

作者: Herculeslove 时间: 2011-12-11 23:09 标题: [已解决]请教，如何将C级目录下的各个文件移动到B级目录下的各个文件夹中？

本帖最后由 Herculeslove 于 2011-12-12 09:32 编辑

有好心人么？谢谢大家了。

IMG 是最大的一个目录，下面很多小的同级目录2009-c-009_00175_image之类的文件夹，每个下面有一个JPG的子文件夹。

例子：

D:/IMG/2006-c-002_00007_image/JPG/
D:/IMG/2009-c-001_00155_image/JPG/
D:/IMG/2009-c-009_00175_image/JPG/
.
.
.上万个
.
D:/IMG/2011-c-009_00188_image/JPG/

每个以上文件夹根目录下均有一个 JPG 的子文件夹（这样的文件夹有上万个，但是真正的文件都是在每个文件夹下的子文件夹JPG里面，

D:/IMG/2006-c-002_00007_image/JPG/*.jpg
D:/IMG/2009-c-001_00155_image/JPG/*.jpg
D:/IMG/2009-c-009_00175_image/JPG/*.jpg

i want move to | 现在想实现的就是将每个根文件夹下的 JPG 子文件夹内的 JPG 图片，移动到各个根文件夹下

效果：

D:/IMG/2006-c-002_00007_image/*.jpg
D:/IMG/2009-c-001_00155_image/*.jpg
D:/IMG/2009-c-009_00175_image/*.jpg

还有一个问题是，如何将
D:/IMG/2006-c-002_00007_image/
D:/IMG/2009-c-001_00155_image/
D:/IMG/2009-c-009_00175_image/
。。。。
此类文件夹的名字把最后的_image 给去除。

变成文件夹名均为
D:/IMG/2006-c-002_00007/
D:/IMG/2009-c-001_00155/
D:/IMG/2009-c-009_00175/

是否能帮助我一下，谢谢各位高手。站内搜索了很多帖子，但是

@echo off
echo 移动文件中...
for /f "delims=" %%i in ('dir  /ad /b') do (
    pushd "%%i"
    for /f "delims=" %%j in ('dir /a-d /s /b') do (
         if not "%%~dpj"=="%~dp0%%i\" call :movefile "%%j")
    popd
)
echo 移动文件完成！
pause&exit
:movefile
if exist "%~dp0%~nx1" set "n="&goto renfile
move %1 "%~dp0">nul 2>nul||(attrib -r -h -s %1& move %1 "%~dp0">nul)
goto :eof
:renfile
set/a n+=1
if exist "%~dp0%~n1(%n%)%~x1" goto renfile
move %1 "%~dp0%~n1(%n%)%~x1">nul 2>nul||(
 attrib -r -h -s %1& move %1 "%~dp0%~n1(%n%)%~x1">nul)
goto :eof
复制代码

上面这个是将C级目录内的文件，全部移动到A级目录的，我是想做到将每个C级目录下的文件，移动到各个B级目录下。能否帮一下。

作者: 601997526 时间: 2011-12-12 09:20

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /s d:\img\*.jpg') do (set i=%%~dpi
set i=!i:\jpg=!
move "%%i" "!i!"
rem 重命名
set i=!i:d:\img\=!
ren "d:\img\!i:~0,-1!" "!i:_image\=!"
)
复制代码

作者: HAT 时间: 2011-12-12 21:25

回复 3# jvozen

不是copy，是移动

欢迎光临批处理之家 (http://www.bathome.net/)