@echo off
color 3f
cls
title 文件查找工具 by-junchen2 date-2007-09-28
del /q E:\findfile
:n
@echo 扩 文 路 打开
@echo 展 件 方式
@echo 名 名 径 a s
set /p var=
for /f "tokens=1-4" %%a in ("%var%") do call :f %%a %%b %%c %%d
:f
::setlocal enabledelayedexpansion
cd\
cd /d %3
dir /b /s /a %2.%1>> e:\findfile\list.txt
if errorlevel 1 @echo 再一次查找 & 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