[文件操作] [已解决]求助批处理根据清单创建文件夹并复制文件

feiyan

各位老师，我因为工作需要，有个需求是这样的，想根据一个清单（清单内有多个文件名例如 1.pdf, 2.pdf, 3.pdf ,4.pdf,5pdf  6.pdf)  和 多 个文件夹名  A, B,  C,
A 1.pdf  2.pdf
B 3.pdf  6.pdf
C 4pdf  5. pdf
1. 在当前目录下（C:\Users\Administrator\Desktop\test1\）创建清单内的多个文件夹。
2. 到指定目录下的文件夹(D:文件数据库）内复制和清单内的文件名的文件到刚创建的文件夹内，需要和清单内容是一一对应，例如:1.pdf，2pdf 复制到 A 文件夹内， 3.pdf  6.pdf  复制在B 文件夹内，  4.pdf  ,5pdf  复制到C 文件夹内
3  如果(D:文件数据库）内没有清单内的文件名，（假设： 6.pdf,  5.pdf 是不存在的） 需要创建一个复制不成功清单，包含不成功的文件名。
[img][/img]

jyswjjgdwtdtj

回复 1# feiyan


    换个标题啦 一会batcher要过来扣分的
还有要求没看懂

czjt1234

清单长啥样？

A 1.pdf 2.pdf
B 3.pdf

还是

[A]
1.pdf
2.pdf

[B]
3.pdf

Batcher

回复 1# feiyan


请把清单发出来看看，如果需要上传文件，可以用阿里云盘或百度网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

77七

文件夹和文件名是否含有空格？

feiyan

回复 5# 77七


    没有空格

feiyan

xi新人刚来，傻傻不懂，标题是有固定的要求和格式吗？

feiyan

已经上传截图了，还把表述不清楚的，重新编辑下

77七

@echo off
rem 批处理保存为ansi编码格式
cd /d "C:\Users\Administrator\Desktop\test1\"
for /f "delims=" %%a in ('type "1.txt"') do (
        setlocal enabledelayedexpansion
        for %%b in (%%a) do (
                if defined folder (
                        if exist "D:\文件数据库\%%b" (
                                copy "D:\文件数据库\%%b" "!folder!"
                        ) else (
                                >>log.txt echo %%b
                        )
                ) else (
                        set "folder=%%b"
                        md "!folder!"
                )
        )
        endlocal
)
pause
复制代码

试试行吗

yakeyun

回复 1# feiyan

未测试，不知道是不是需要的。

@echo off
setlocal enabledelayedexpansion
pushd "%~dp0"

for /f "tokens=1-3" %%a in (1.txt) do (
    md "%%a"
    if exist "D:文件数据库\%%b" (
        xcopy "D:文件数据库\%%b" ".\%%a\" /f /y >nul
    ) else (
        echo 找不到指定文档：%%b ，拷贝到文件夹%%a中。 >>错误清单.log
    )
    if exist "D:文件数据库\%%c" (
        xcopy "D:文件数据库\%%c" ".\%%a\" /f /y >nul
    ) else (
        echo 找不到指定文档：%%c ，拷贝到文件夹%%a中。 >>错误清单.log
    )
)

popd

exit
复制代码

qixiaobin0715

批处理文件放在C:\Users\Administrator\Desktop\test1\目录下，并保存为ANSI编码：

@echo off
(for /f "tokens=1*" %%i in (1.txt) do (
    md "%%i">nul 2>nul
    for %%k in (%%j) do (
        if exist "D:\文件数据库\%%k" (
            copy "D:\文件数据库\%%k" "%%i\">nul 2>nul
        ) else (
            echo,%%k
        )
    )
))>2.txt
pause
复制代码

feiyan

回复 9# 77七
系统显示找不到指定文件

feiyan

回复 11# qixiaobin0715

显示找不到文件

feiyan

回复 10# yakeyun
双击后无任何反应，我特地检查下，是完全copy 过来的

czjt1234

9 10 11 楼的代码，是假设你的清单文件名为 1.txt，且和批处理文件在一起