中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]文件位置和扩展名未知的搜索与复制

pcbfans
新手上路

积分 11
发帖 8
注册 2008-12-6
状态离线

『楼主』: [求助]文件位置和扩展名未知的搜索与复制

求助:

根据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 ]

2008-12-30 23:00

pcbfans
新手上路

积分 11
发帖 8
注册 2008-12-6
状态离线

『第 2 楼』: 下面代码提示语法有问题

下面的代码是自己参考写的，不过语法有问题，请高手帮忙改改，急用。谢谢！

@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

2008-12-31 12:00