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

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]

feiyan

回复 40# 77七 感谢，完美。

77七

回复 39# feiyan


  

@echo off
rem 文本格式 a|1.pdf|2*.pdf
rem 批处理保存为ansi编码格式
cd /d "C:\Users\Administrator\Desktop\test1\"
for /f "tokens=1* delims=|" %%a in ('type "1.txt"') do (
	echo 创建文件夹 "%%a"
	md "%%a" 2>nul
	set "folder=%%a"
	set "str="
	call :1 "%%b"
	echo=
)
pause & exit

	:1
	if not defined str (
		set "str=%~1"
	)
	for /f "tokens=1* delims=|" %%x in ("%str%") do (
		echo 查找文件 "%%x"
		(for /f "delims=" %%i in ('dir /b /s /a-d "d:\文件数据库\%%x" 2^>nul') do (
			copy "%%i" "%folder%"
		)) || (
			>>log.txt echo %%x
		)
		if "%%y" neq "" (
			set "str=%%y"
			goto :1
		) else (
			exit /b
		)
	)
复制代码

feiyan

回复 34# 77七 七七，能帮忙把添加个功能，希望能遍历查找D:文件数据库的多层子文件夹，因为有些文件在子文件夹或孙文件夹内。文件夹可能有好几层的。

feiyan

回复 37# 77七 如君所愿，已经向论坛捐助50元。祝77中秋快乐。

77七

回复 36# feiyan




谢谢！请以你的名义捐助到论坛吧！
http://bbs.bathome.net/thread-10403-1-1.html

feiyan

回复 34# 77七 hi 77,非常感谢，想你喝杯咖啡，给我个支付宝的二维码吧。

feiyan

回复 34# 77七 这个程序完美

77七

回复 33# feiyan


  

A|1*|2*|3*|
复制代码

尽量不要修改格式，虽然这样也没错，就怕把代码也随意改了，格式中包括含有空格的文件名等等，不需要加引号了。
上一个代码，我用你的格式，测试也没发现问题，
可以试试点击上一个代码的 copy 按钮 复制代码，不要选中复制。
或者试试以下的

@echo off
rem 文本格式 a|1.pdf|2*.pdf
rem 批处理保存为ansi编码格式
cd /d "C:\Users\Administrator\Desktop\test1\"
for /f "tokens=1* delims=|" %%a in ('type "1.txt"') do (
	echo 创建文件夹 "%%a"
	md "%%a" 2>nul
	set "folder=%%a"
	set "str="
	call :1 "%%b"
	echo=
)
pause & exit

	:1
	if not defined str (
		set "str=%~1"
	)
	for /f "tokens=1* delims=|" %%x in ("%str%") do (
		echo 查找文件 "%%x"
		if exist "D:\文件数据库\%%x" (
			copy "D:\文件数据库\%%x" "%folder%"
		) else (
			>>log.txt echo %%x
		)
		if "%%y" neq "" (
			set "str=%%y"
			goto :1
		) else (
			exit /b
		)
	)
复制代码

feiyan

回复 31# 77七
这个我试了下，不知道为什么，就是1.txt 里面，如果我的文件夹和文件名多一些，第二个文件夹和之后文件夹就没有显示。当我只是个文件夹和单个文件就没有这个问题。
举例：
A|1*|2*|3*|
B|1*|2*|
C|3*|*00*|
这样也不行
A|1*||2*||3*|
B|1*||2*|
C|3*||*00*|
下面这这个模式没问题
A|1*|
B|1*|
C|3*|

877

回复 31# 77七


    大佬在吗？看一下我的最新帖吧~求助您

77七

回复 30# feiyan


   
我刚测试了一下，代码正常，1.txt是否是代码中要求的格式？

a|1.pdf|2*.pdf
复制代码

feiyan

回复 29# 77七 好像不成功，没有文件夹被创建出来，而且系统也没有报错，就提示了一句，请按任意键继续

77七

回复 28# feiyan

@echo off
rem 文本格式 a|1.pdf|2*.pdf
rem 批处理保存为ansi编码格式
cd /d "C:\Users\Administrator\Desktop\test1\"
for /f "tokens=1* delims=|" %%a in ('type "1.txt"') do (
	md "%%a" 2>nul
	set "folder=%%a"
	call :1 "%%b"
)
pause & exit

	:1
	for /f "tokens=1* delims=|" %%x in ("%~1") do (
		if exist "D:\文件数据库\%%x" (
			copy "D:\文件数据库\%%x" "%folder%"
		) else (
			>>log.txt echo %%x
		)
		if "%%y" neq "" (
			call :1 "%%y"
		) else (
			exit /b
		)
	)
复制代码

feiyan

各位老师，对于1.txt 中包含的文件名，如果我想偷懒，用1*.pdf,  2*pdf  来代替实际文件名，发现程序就没法复制数据库里面的文件了。这个有办法解决吗？