- @echo off&setlocal enabledelayedexpansion
- set "str=本目录"
- for /f "delims=" %%i in ('dir /ad /b') do set "str=!str! %%i"
- for %%a in (%str%) do (
- if "%%a" equ "本目录" (
- set "p="
- ) else (
- set "p=%%a\"
- )
- set /a m=0,n=0,v=0
- for /f "delims=" %%i in ('dir /b !p!*.txt') do (
- set "var=%%~nxi "&set /a n+=1,v+=1
- call,set "%%a!m!=%%%%a!m!%%!var:~,10!"
- if !n! equ 5 set /a n=0,m+=1
- )
- set /a num+=v,m-=1
- echo %%a下有文本文件!v!个:>>list.txt
- for /l %%m in (0,1,!m!) do echo !%%a%%m!>>list.txt
- echo.>>list.txt
- )
- echo %~dp0下总共有文本文件%num%个>>list.txt
- start list.txt&del /q %0
复制代码
[ 本帖最后由 batman 于 2008-9-5 14:42 编辑 ] |