随风

我也来一个
...

@echo off&set /a m=0&del/q list.txt 2>nul
call :loop "%cd%" 本目录
for /f "delims=" %%i in ('dir/b/ad') do call :loop "%%i" "%%~nxi"
start list.txt
del/q "%~0"
:loop
Setlocal Enabledelayedexpansion
for /f "delims=" %%a in ('dir/b "%~1\*.txt"2^>nul') do (
   set /a b+=^^!n,n+=1,n=n%%5,m+=1
   set "str=%%~nxa　　　　　　　　　　"
   call "set var!b!=%%var!b! !str:~0,10!"
)
>>list.txt echo %~2里有!m!个文件
for /l %%l in (1 1 !b!) do >>list.txt echo    !var%%l!
>>list.txt echo\
endlocal&goto :eof
复制代码

[ 本帖最后由 随风 于 2008-9-10 20:27 编辑 ]