中国DOS联盟

求助: 根据filelist中每行的文件字段搜索文件，提示指定需要复制到的文件夹(手工指定)，成功搜到的文件复制到指定文件夹，并建立搜索报表：成功报表和错误报表 具体目录未知，需要搜索 目录里的文件还有扩展名，而扩展名未知（可能是zip,tgz,arj等压缩格式） 用途： 客户几年前的陈旧文件，忘记存放位置（有些是移动硬盘存储，有些是光盘存储），但有突然需要，需要重新收集打包整理并建立文件报表，知道哪些文件还在，哪些不在了。 如： filelist中内容为: S10008H2A S10009H2A S9994H2A S9993H2A S9985G4A S9986H4A S9987H2A S9982G4A S9983H4A S9984H2A S9981H2A S9973H2A S9970H2A S9971H2A S9972H2A S9964G4A 本人不才，参考了该站几篇高手的文章仍然无法参透，烦请高手不吝赐教，谢谢！呵呵...... [ Last edited by pcbfans on 2008-12-31 at 10:25 ]

下面的代码是自己参考写的，不过语法有问题，请高手帮忙改改，急用。谢谢！ @echo off title 批处理命令 文件位置和扩展名未知的搜索与复制并显示进度 echo 注意filelist需要与此批处理文件在同一目录 cls color 0A cls setlocal enabledelayedeXPansion set b=/-\ /-\ ** set 速度=1 set 退格= set n=0 set u_path= set file_to= :input_var set /p u_path=开始查找的文件夹路径(要退出请直接回车)： set /p file_to=需要复制到的新文件夹路径（直接回车为程序默认目录，e:/filebakup/）: if "%u_path%"=="" exit if "%file_to%"=="" e: md filebakup ren ============== 判断盘符号 ============== cls echo %u_path%|findstr /b "[a-zA-Z]">nul && goto findfile || goto notfound ren ============== 开始查找复制 ============== :findfile title -开始查找复制 cd %u_path% for /f "tokens=* delims=:" %%i in (filelist) do ( if /i "%%j"=="%u_path%" echo %%~nxi for /f "tokens=* delims=" %%j in ('dir /s/b "%%~nxi"') do (call :a !n!&copy "%%j",%file_to% 2>nul&set /a n+=1) ) goto :eof ) :a set/a a=%1%%10 set/a c=%a%%%4 if %a% EQU 0 set/p=▌<nul if %c% EQU 3 (set/p=^|<nul) else (set/p=!b:~%a%,1!<nul) ping/n %速度% 127.1>nul set/p=%退格%<nul goto :eof :notfound echo _________________________________ echo. echo 没有找到文件列表中的文件 pause goto input_var

努力学习中... ....

把进度条那部分删除 把@echo off删除 再运行看看错误出在什么地方

学习