批处理怎样移动文件夹内图片和文本？

aks155

请教移动文件夹内图片和文本，命名成文件夹的名字并放入指定文件夹的批处理
我想把所有分区根目录下的 *:\VOD\连续剧\影片名字\      这样子目录下的所有JPG图片和TXT更换成LOGO.JPG和NOTES.TXT这样的文件名（每个影片里面只有一个JPG和TXT文件的，但是有些名字不一样的），然后在d:\资料   的文件夹下面新建影片名字的文件夹并放入LOGO.JPG和NOTES.TXT的批处理

aks155

最好用复制，移动的话害怕弄错了

sgaizxt001

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "str=D:\Vod302\Web\MovieInfo"
   
4. :input
   
5. set /p lp=请输入要处理的文件夹：
   
6. if not defined lp goto input
   
7. set lp=%lp:"=%
   
8. if "%lp:~-1%"=="" set lp=%lp:~0,-1%
   
9. if not exist "%lp%" (
   
10.         echo 文件夹不存在
    
11.         goto input
    
12. )
    
13. call :move %lp%
    
14. del a.txt
    
15. goto :eof
    
16. 
    
17. 
    
18. 
    
19. :move
    
20. for /r %1 %%a in (*.jpg *.txt) do (
    
21.   set "sstr=%%a"
    
22.   set sstr=!sstr: =!
    
23.   call echo %%sstr%% >>a.txt
    
24.                                   )
    
25. for /f "tokens=4,5,6 delims=" %%i in (a.txt) do (
    
26.   echo %%i   %%j     %%k
    
27.     if "%%k"=="" ( md %str%\%%i
    
28.                    move  %1\%%i\*.jpg %str%\%%i\LOGO.jpg
    
29.                    move  %1\%%i\*.txt %str%\%%i\NOTES.txt
    
30.                  ) else ( md %str%\%%j
    
31.                           move  %1\%%i\%%j\*.jpg %str%\%%j\LOGO.jpg
    
32.                           move  %1\%%i\%%j\*.txt %str%\%%j\NOTES.txt
    
33.                          )
    
34.                                                  )

复制代码

前两天我这也弄这个酷吧电影系统时我写的，你看着改改路劲就可以。

sgaizxt001

比如“D:\vod\港台二”，运行批处理，你直接拖动这个文件夹进来就可以
看你资料才发现你是叶哥哦，我是大唐的谌刚。嘿嘿，前两天的代码有点错误，就是文件夹如果是“XXX 高清版”就不得行，我想了一下就把空格给去除了，但是现在这个代码我没调试，只是在前天的代码上去掉了空格。我刚开始写的时候，用copy命令，但是COPY过去的图片打开来啥子都没得显示

[ 本帖最后由 sgaizxt001 于 2010-3-23 22:55 编辑 ]

x9tiancmd

@echo off&setlocal enabledelayedexpansion&cd /d %~dp0&set dr=c d e f g h i  j k l
SET/P VC=请输入要操作的目录名
:k_
SET/P VK=把要转存的目标文件侠拖放到本窗口
if defind VC goto %0
if defind VK  goto k_

if exist 0.txt  del 0.txt /q/y
for  %%a in (%dr%) do IF /I EXIST %%a:\%VC% dir /a/b/s "%%a:\%VC%">>0.txt
:: 注意: copy ""  "" 前面对引号要省略    for  过的变量,  copy 下不能引用对引号, 否则提示找不到文件, 这是我血的教训, 曾经就是这对引号, 害我把批处理检查了N片
::鼠标双击我去六楼(就是犯了这个错误)
for  /f   "delims=*"  %%i in (0.txt) do set name=%%~pi&SET "name=!name:%VC%=%VK%!"&copy  %%i  "!name!"
for /f %%c in ('dir /a/s/b "%VK%"')  do (
if /i exist  "%%~xc"==".txt"  ren %%~i  "%%~dpinotes.txt"
if /i exist  "%%~xc"==".jpg"   ren %%~i  "%%~dpilogo.jpg"
)

[ 本帖最后由 x9tiancmd 于 2010-3-23 23:47 编辑 ]

aks155

晕了，貌似空格可以在路径上加引号可以解决