标题: [求助]文件位置和扩展名未知的搜索与复制 [打印本页]
作者: pcbfans 时间: 2008-12-30 23:00 标题: [求助]文件位置和扩展名未知的搜索与复制
求助:
根据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 ]
作者: pcbfans 时间: 2008-12-31 12:00 标题: 下面代码提示语法有问题
下面的代码是自己参考写的，不过语法有问题，请高手帮忙改改，急用。谢谢！
@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!© "%%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
作者: pcbfans 时间: 2008-12-31 17:22
努力学习中... ....
作者: HAT 时间: 2009-1-1 02:59 标题: Re 3楼
把进度条那部分删除
把@echo off删除
再运行看看错误出在什么地方
作者: DJ131452DJ 时间: 2009-1-22 23:11
学习