查找,获得完全路径,执行操作(针对文件及文件夹),求例子 - 中国DOS联盟论坛

@echo off
color 3f
cls
:1

title 文件查找工具 by-junchen2 date-2007-09-28
del /q E:\findfile
set /p var=n/e/p/o
for /f "tokens=1-4 delims=/" %%a in ("%var%") do call :f "%%a" "%%b" "%%~sc" %%d

:f

if "%~1"=="" echo 参数缺少请再一次输入 & goto :1
if "%~2"=="" echo 参数缺少请再一次输入 & goto :1
if "%~3"=="" echo 参数缺少请再一次输入 & goto :1
if "%~4"=="" echo 参数缺少请再一次输入 & goto :1

cd\
cd /d %3

dir /b /s /a %~1.%~2>> e:\findfile\list.txt
if errorlevel 1 goto :n
for /f "delims=" %%d in (e:\findfile\list.txt) do echo %%~sd >>e:\findfile\s_list.txt

@for /f "delims=" %%e in (e:\findfile\s_list.txt) do echo %%~dpe>>e:\findfile\sp_list.txt

type e:\findfile\list.txt|findstr /n ".*" >>e:\findfile\n_list.txt
type e:\findfile\s_list.txt|findstr /n ".*" >>e:\findfile\sn_list.txt
type e:\findfile\sp_list.txt|findstr /n ".*" >>e:\findfile\spn_list.txt
::-----------^^^将长短名文件列表加入行号输出n_list.txt ，sn_list.txt

cls
echo.
echo %~1/%~2/%~3/%4
echo.
findstr /a:a /n ".*" e:\findfile\list.txt

:c
set /p nub= 输入查找的行号：

if %4 equ a goto :a
if %4 equ s goto :s
:a
@for /f "tokens=1-3 delims=:" %%a in ('type e:\findfile\sn_list.txt') do echo %%a|findstr "\<%nub%" &&start %%b:%%c && goto :2
:s
@for /f "tokens=1-3 delims=:" %%a in ('type e:\findfile\spn_list.txt') do echo %%a|findstr "\<%nub%" &&start %%b:%%c
:2
set /p c=ind_other input=y
if "%c%"=="y" echo. & goto :1
goto :c

第1楼　su2353	发表于 2007-12-01 21:44
初级用户　发帖 63　积分 152
查找,获得完全路径,执行操作(针对文件及文件夹),求例子相信论坛上有很多,但都不完整, 大家帮忙统合还有我是入门级的,莫见笑

第2楼　junchen2	发表于 2007-12-01 22:27
高级用户　发帖 219　积分 537　来自杭州--半山
@echo off color 3f cls :1 title 文件查找工具 by-junchen2 date-2007-09-28 del /q E:\findfile set /p var=n/e/p/o for /f "tokens=1-4 delims=/" %%a in ("%var%") do call :f "%%a" "%%b" "%%~sc" %%d :f if "%~1"=="" echo 参数缺少请再一次输入 & goto :1 if "%~2"=="" echo 参数缺少请再一次输入 & goto :1 if "%~3"=="" echo 参数缺少请再一次输入 & goto :1 if "%~4"=="" echo 参数缺少请再一次输入 & goto :1 cd\ cd /d %3 dir /b /s /a %~1.%~2>> e:\findfile\list.txt if errorlevel 1 goto :n for /f "delims=" %%d in (e:\findfile\list.txt) do echo %%~sd >>e:\findfile\s_list.txt @for /f "delims=" %%e in (e:\findfile\s_list.txt) do echo %%~dpe>>e:\findfile\sp_list.txt type e:\findfile\list.txt\|findstr /n "." >>e:\findfile\n_list.txt type e:\findfile\s_list.txt\|findstr /n "." >>e:\findfile\sn_list.txt type e:\findfile\sp_list.txt\|findstr /n "." >>e:\findfile\spn_list.txt ::-----------^^^将长短名文件列表加入行号输出n_list.txt ，sn_list.txt cls echo. echo %~1/%~2/%~3/%4 echo. findstr /a:a /n "." e:\findfile\list.txt :c set /p nub= 输入查找的行号： if %4 equ a goto :a if %4 equ s goto :s :a @for /f "tokens=1-3 delims=:" %%a in ('type e:\findfile\sn_list.txt') do echo %%a\|findstr "\<%nub%" &&start %%b:%%c && goto :2 :s @for /f "tokens=1-3 delims=:" %%a in ('type e:\findfile\spn_list.txt') do echo %%a\|findstr "\<%nub%" &&start %%b:%%c :2 set /p c=ind_other input=y if "%c%"=="y" echo. & goto :1 goto :c

第3楼　su2353	发表于 2007-12-01 22:37
初级用户　发帖 63　积分 152
01.查找如 TEST 文件夹和TEST.EXE 02.获得路径 03.操作

第4楼　junchen2	发表于 2007-12-01 23:25
高级用户　发帖 219　积分 537　来自杭州--半山
n/e/p/o n 文件名，可以用通配符。 e 文件扩展名 p 盘符 o 打开方式打开查找的文件就用s 打开文件所在的文件夹就用 a 比如想在 d 盘查找 test.exe 1 。 test/exe/d:/a 或者 2。 test/exe/d:/s [ Last edited by junchen2 on 2007-12-1 at 11:28 PM ]