建立文件列表(txt)的问题 - 中国DOS联盟论坛

利用for /R和tree命令遍历出的文件顺序是一定的原理，写了这个。

如果目录下面的文件比较多，建议不要用此方法，因为跑起来很慢！
希望有高手可以优化此脚本。

@rem 关闭命令行回显并打开延迟扩展
@echo %bg% off & SetLocal EnableDelayedExpansion

rem 对当前目录及其子目录中的每个文件大小进行索引
set tnum=1
for /r .\ %%a in (*) do (
	set "file!tnum!_%%~nxa=%%~za"
	set /a tnum+=1
)

rem 处理TREE的输入并显示结果
set tnum=1

echo %cd%
echo ************************************************
for /F "delims=" %%a in ('tree /F^|more +3') do (
	echo %%a|findstr /R "├ └" >nul && (
		echo\%%a
	) || (
		echo %%a|findstr /R /C:"^│*$" >nul 2>nul && (
			echo\%%a
		) || (
		for /f "delims=" %%c in ("%%a") do (
			set string=%%c
			set string=!string:│=!
			for /f "tokens=* delims= " %%d in ("!string!") do set fname=%%d
			if not "!fname!"=="" (
				call echo\%%a 
				set /a tnum+=1
			) else (echo\%%a)
		)
		)
	)
)

第1楼　v215com	发表于 2007-09-26 06:06
新手上路　发帖 4　积分 14
建立文件列表(txt)的问题[高手进] 需将一个目录下所有文件制成文件列表(txt格式)，包含子文件夹（要树型格式），文件列表要按字母顺序排列的，并且要“列出文件或文件夹的大小，以Kb记”。（不要显示文件日期或其它属性，只要名称和大小！！）请写出cmd下可输入的完整的命令。要像这样的： ├—宇佐美真纪 │ │ 爱琴海[宇佐美真纪][1][完].rar │ └—樱花恋》[宇佐美真纪]全一册 │ ├—安留安崎（蛮可爱的） │ └—B-Wanted》[安留安崎] │ Vol_01.rar

第2楼　lxmxn	发表于 2007-09-26 12:04
版主　发帖 4,938　积分 11,386
利用for /R和tree命令遍历出的文件顺序是一定的原理，写了这个。如果目录下面的文件比较多，建议不要用此方法，因为跑起来很慢！希望有高手可以优化此脚本。 @rem 关闭命令行回显并打开延迟扩展 @echo %bg% off & SetLocal EnableDelayedExpansion rem 对当前目录及其子目录中的每个文件大小进行索引 set tnum=1 for /r .\ %%a in () do ( set "file!tnum!_%%~nxa=%%~za" set /a tnum+=1 ) rem 处理TREE的输入并显示结果 set tnum=1 echo %cd% echo *********************************************** for /F "delims=" %%a in ('tree /F^\|more +3') do ( echo %%a\|findstr /R "├ └" >nul && ( echo\%%a ) \|\| ( echo %%a\|findstr /R /C:"^│$" >nul 2>nul && ( echo\%%a ) \|\| ( for /f "delims=" %%c in ("%%a") do ( set string=%%c set string=!string:│=! for /f "tokens= delims= " %%d in ("!string!") do set fname=%%d if not "!fname!"=="" ( call echo\%%a set /a tnum+=1 ) else (echo\%%a) ) ) ) )

第3楼　v215com	发表于 2007-09-27 01:10
新手上路　发帖 4　积分 14
谢谢版版了