批处理如何根据txt文本列出的文件名批量查找指定文件夹里的文件并复制到新的文件夹 - BAT求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子2&积分14&技术0 &捐助0 &注册时间&
批处理如何根据txt文本列出的文件名批量查找指定文件夹里的文件并复制到新的文件夹
本帖最后由 pcl_test 于
12:41 编辑
请帮忙：批处理如何批量查找文件夹并复制到指定文件夹
1、D:\文件夹1(含有子文件夹)
2、需要查找的文件名字列表已经存储在1.txt文档中了。
3、按1.txt文档中文件名字列表批量查找文件，并复制到d:\文件夹2中。
4、如果1.txt文档中某个文件没有在D:\文件夹1(含有子文件夹)中找到，将文件名复制到另2.txt
请教该怎么写？
帖子473&积分639&技术82 &捐助0 &注册时间&
FOR+FORFILES搞定
想代写请左转有偿区或联系我。
开源代码发布页：
帖子211&积分347&技术39 &捐助0 &注册时间&
@echo off
for /f &delims=& %%a in (1.txt) do (
for /f &delims=& %%i in ('dir /a-d /s /b &D:\文件夹1\%%a&') do (
if &%%i&==&找不到文件& (
%%a&&2.txt
set n+=1
) else (
copy /y &%%~fi& D:\文件夹2\
set m+=1
)
)
)
找到%m%个，有%n%个没找到
pause&nul复制代码新手作业
帖子5&积分16&技术0 &捐助0 &注册时间&
& & 按照您的做法，文件是能找到，但找不到的文件没有显示到2.txt里哦，请大神再帮帮忙，谢谢！
帖子5&积分16&技术0 &捐助0 &注册时间&
楼主的第4点三楼貌似不能实现，请再帮帮忙~
帖子211&积分347&技术39 &捐助0 &注册时间&
本帖最后由 taofan712 于
16:03 编辑
@echo off
for /f &delims=& %%a in (1.txt) do (
& & for /f &delims=& %%i in ('dir /a-d /s /b &D:\文件夹1\%%a&^|^|%%a^&^&2.txt') do copy /y &%%~fi& D:\文件夹2\
)
pause&nul复制代码
重回江湖技术 + 1
帖子5&积分20&技术1 &捐助0 &注册时间&
call :t D:\1.txt D:\文件夹1 D:\文件夹2 D:\2.txt
& & for /f &usebackq delims=& %%a in (%1) do (
& && &&&for /r &%~f2& %%b in (
& && && && &&%%~nxa&
& && &&&) do copy &%%~b& %3
& && &&&if not exist &%~3\%%~nxa& echo %%a && %4
& & goto :eof
乐于助人技术 + 1
帖子5&积分16&技术0 &捐助0 &注册时间&
& & 完美成功了，感谢大神帮忙！！！好人一生平安。
帖子5&积分16&技术0 &捐助0 &注册时间&
& & 感谢大哥，成功了，好人一生平安！
帖子3043&积分5242&技术657 &捐助0 &注册时间&
本帖最后由 pcl_test 于
02:39 编辑
@echo off
powershell ^
& & $fileList='1.txt';^
& & $notExists='2.txt';^
& & $srcFolder='D:\文件夹1\';^
& & $desFolder='D:\文件夹2\4567';^
& & $m=@{};$s='';^
& & if(-not (Test-Path -Literal $desFolder)){md $desFolder^|out-null};^
& & gc $fileList^|?{$_ -notmatch '^^\s*$'}^|%%{if(!$m[$_.trim().ToLower()]){$m[$_.trim().ToLower()]=1;}};^
& & dir -Literal $srcFolder -r^|?{$_ -is [System.IO.FileInfo]}^|%%{^
& && &&&$tmp=$_.Name.ToLower();^
& && &&&if($m[$tmp]){^
& && && && &if($m[$tmp] -le 1){^
& && && && && & cp -Literal $_.FullName $desFolder -F^
& && && && &}else{^
& && && && && &&&^&#处理同名文件#^&^
& && && && && & $newname=$_.BaseName+'_('+($m[$tmp]-1)+')'+$_.E^
& && && && && & cp -Literal $_.FullName (Join-Path $desFolder $newname) -F^
& && && && &};^
& && && && &$m[$tmp]+=1;^
& & };};^
& & foreach($a in $m.keys){if($m[$a] -eq 1){$s+=$a+\&`r`n\&;}};^
& & if($s){Set-Content $notExists -value $s}
pause复制代码
一行啥都能干的PS技术 + 1
提供有偿代写，省时省力省事，需要的加QQ
[通过 QQ、MSN 分享给朋友]批处理随机copy某文件夹内的一个文件到另一个文件夹内，并重命名【bat吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：12,953贴子：
批处理随机copy某文件夹内的一个文件到另一个文件夹内，并重命名收藏
批处理随机copy某文件夹内的一个文件到另一个文件夹内，并重命名该文件！！！要怎么实现？再补充说清一下。例如说我
下面有50个jpg文件，我要将这50个jpg文件随机复制一个到 d:\b\
里面，并且将复制到 d:\b\ 的文件重命名为abc.jpg不知道我这样说能不能表达清楚。这样能实现吗？
OffFor /F %%i In ('Dir /A-D D:\a^|Findstr &个文件&') Do Set /A Ran=Random%%%%%iIf Not %Ran%==0 Set Skip=&Skip=%Ran%&For /F %Skip% %%i In ('Dir /A-D /B D:\a') Do Copy &%%~fi& &D:\b\&&Ren &D:\b\%%~nxi& &abc.jpg&
off:backecho 楼上都是大神！goto back
登录百度帐号推荐应用求提取txt文件第一行作为文件名的批处理命令bat
求提取txt文件第一行作为文件名的批处理命令bat
我有100多本文件名为数字的小说 txt格式，文件正文第一行是 四个空格+[标题 书名]
急求批处理命令，一次修改文件名为正文第一行文字
for %%i in (*.txt) do call :re_name &%%i&
for /f &delims=& %%i in ('findstr /n .* %1') do (
set &str=%%i&
setlocal enabledelayedexpansion
set str=!str:*:=!
set str=!str: =!
set str=!str:　=!
ren %1 !str!.txt
　　以上為批處理內容，也可以自己加上“@echo off”。在打包文件內有。此批處理凡遇到特殊字符則自動跳過，所以如果你個個文件都有“/”這類不能作為文件名的字符，則不適用。
　　這個批處理要在txt同一個文件夾（目錄）內運行。
　　批處理速度比較慢。
　　因此我寫了一個exe程序：先選擇文件夾，然後設置一下（例如是否保留空格，是否替換諸如“/”這些字符，也可以自定義所要剔除的字符），按“開始更名”就可以了。
　　此程序基於delphi7寫出來，內容比較長（主要是函數），所以不貼出來了，如果你需要源程序和代碼也可以另附給你。
　　打包中一個叫“笑話”的文件夾（目錄），是一個測試目錄，裏面有若幹個txt文件，可以測試程序的功能。若你不明白程序使用方法，也可以拿這個目錄去試，就不用擔心你的數字小說會改錯名。
　　希望對你有幫助。
ps：回答問題附件居然不能超過２００k，沒辦法，只有上傳到這裏讓你下載：
http://www.dadao.net/temp/geniuz/text.rar
或者到到我iask資料裏下載：
http://ishare..cn/cgi-bin/fileid.cgi?fileid=4699461
请遵守网上公德，勿发布广告信息
相关问答：
好专业哦，如果没有答案还是手动吧，也就100多本，不是图书馆几万本，呵呵
Option Explicit
On Error Resume Next ' 容错语句，避免程序崩溃'有可能重命名文件已经存在，忽略错误。
Dim fso,fs,f
Dim strNewName
Const strCurrentPath = &.&
Msgbox &根据文本文件第一行批量重命名的VBS程序& & vbcrlf & vbcrlf & &Created By Shortway&,0,&QQ:&
Set fso = Wscript.CreateObject(&Scripting.FileSystemObject&)
Set fs = fso.GetFolder(strCurrentPath).Files
For Each f In fs'遍历当前文件夹内每个文件
If LCase(right(f.name,3))=&txt& Then'判断是否是文本文件
strNewName = Trim(fso.OpenTextFile(f, 1, False).ReadLine)'得到第一行
'以下剔除不能作文件名的特殊字符
strNewName = Replace(strNewName, &\&, &&)
strNewName = Replace(strNewName, &/&, &&)
strNewName = Replace(strNewName, &:&, &&)
strNewName = Replace(strNewName, &*&, &&)
strNewName = Replace(strNewName, &?&, &&)
strNewName = Replace(strNewName, &&&&, &&)
strNewName = Replace(strNewName, &&&, &&)
strNewName = Replace(strNewName, &重命名同一个文件夹内的文件的批处理命令_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
重命名同一个文件夹内的文件的批处理命令
上传于|0|0|文档简介
&&重命名同一个文件夹内的文件的批处理命令
你可能喜欢[已解决]求一个批处理通过TXT里面的文件夹名列表搜索并复制该文件夹到指定位置，急用 - BAT求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子56&积分52&技术0 &捐助0 &注册时间&
[已解决]求一个批处理通过TXT里面的文件夹名列表搜索并复制该文件夹到指定位置，急用
本帖最后由 开心旺旺 于
15:23 编辑
通过TXT里面的文件夹名列表搜索并复制该文件夹到指定位置。
帖子2865&积分7002&技术333 &捐助0 &注册时间&
文件夹在哪个分区下面确定吗？
帖子56&积分52&技术0 &捐助0 &注册时间&
& & 文件夹在D盘&&要放的也是D盘下
帖子3043&积分5242&技术657 &捐助0 &注册时间&
本帖最后由 pcl_test 于
13:36 编辑
开心旺旺 @echo off
for /f &delims=& %%a in ('type &列表.txt&') do (
for /f &delims=& %%b in ('dir /ad /b /s &D:\%%a&') do (
xcopy &%%b& &D:\目标文件夹\& /s /y
)
)
pause复制代码
提供有偿代写，省时省力省事，需要的加QQ
帖子56&积分52&技术0 &捐助0 &注册时间&
本帖最后由 开心旺旺 于
13:16 编辑
复制TXT列表的文件夹及文件夹下的内容。该文件夹并没有复制过去，文件夹里面的东西过去了。 下面那个图弄错了不好意思
附件: 您需要才可以下载或查看附件。没有帐号？
帖子56&积分52&技术0 &捐助0 &注册时间&
for /f &delims=& %%a in ('type &列表.txt&') do (
for /f &delims=& %%b in ('dir /ad /b /s &E:\123\文件夹1\%%a&') do (
xcopy &%%b& &E:\123\c1\& /y
帖子3043&积分5242&技术657 &捐助0 &注册时间&
本帖最后由 pcl_test 于
14:35 编辑
开心旺旺 @echo off
for /f &delims=& %%a in ('type &列表.txt&') do (
xcopy &E:\123\文件夹1\%%a& &E:\123\c1\%%a\& /s /y 2&&error.log
)
pause复制代码
提供有偿代写，省时省力省事，需要的加QQ
帖子56&积分52&技术0 &捐助0 &注册时间&
& & 大大 成功了 ，还有一个问题 最好加一个没复制出来的报告 TXT格式就行
附件: 您需要才可以下载或查看附件。没有帐号？
帖子2865&积分7002&技术333 &捐助0 &注册时间&
开心旺旺 @echo off
(for /f &delims=& %%a in ('type &列表.txt&') do (
& & if exist &E:\123\文件夹1\%%a& (
& && &&&xcopy /s /y &E:\123\文件夹1\%%a& &E:\123\c1\%%a\& &nul 2&&1
& & ) else (
& && &&&echo,%%a
& & )
))&没复制出来的报告.txt
pause复制代码
帖子3043&积分5242&技术657 &捐助0 &注册时间&
提供有偿代写，省时省力省事，需要的加QQ
帖子56&积分52&技术0 &捐助0 &注册时间&
& & 成功解决
帖子56&积分52&技术0 &捐助0 &注册时间&
& & 实验过，没反映
帖子56&积分52&技术0 &捐助0 &注册时间&
& & 如果要剪切怎么操作
[通过 QQ、MSN 分享给朋友]