出题：批处理显示文件的创建日期及绝对路径

随风

出题：显示文件的创建日期及绝对路径
以显示1000个文件的创建日期和路径为例: 每个目录10层，每层10个文件
set 指定目录=f:\111\测试文件夹
创建测试文件夹的代码见下。。。
用统一的文件夹作测试，各位将代码及结果贴出来、看看效果如何？

要求：
显示指定目录下的所有文件（含子目录）的创建日期和文件路径+文件名,最后显示文件总数。
不排除文件名有名为 “字节” “可用字节” 的，且无后缀名的可能性。
所以用这两个关键字过滤多余信息的需要多考虑一下了。。

限制： 不允许使用临时文件和第三方工具
       为创建统一测试文件夹方便，创建的文件名全是随机数字，不允许从这个规律入手。
       即：文件名无任何规律，只是没有特殊符号。

加分原则：
   效率高        +5
   代码简洁      +5
   思路独特      +5
   仅仅达到目的  +2
   
出题目的：
    让新手熟悉对文件信息的提取。
    解题对象不限于新手。

难点：尽可能高效的提取文件的创建日期和路径。

提醒：
   for 的 %%~ti 扩展的是文件的修改时间，而不是创建时间。
   目标目录是指定的目录，而不是批处理当前目录。

因个人时间原因委托本版版主代为加分，当然其他会员和版主也可以加分，我委托的是悬赏、鼓励分。

以下提供一段计算批处理耗时的函数代码,方便检测效率，直接复制到代码末尾即可。

:: 计算批处理耗时的函数代码，直接复制到代码末尾即可。
:: 别忘了在代码开头加一句 set t=%time%
call :time0 "%t%" "%time%" "ok"
echo.&echo 耗时: %ok%
pause&exit

:time0  以下为封装部分。
:: code 随风 @bbs.bathone.cn 2008-08-15
setlocal&set /a n=0
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
   set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
   set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100
)
set "n=%n:-=%"
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小时 %f% 分钟 %m% 秒 %n% 毫秒"
endlocal&set "%~3=%ok%"&goto :eof
复制代码

创建测试文件夹代码

@echo off&setlocal enabledelayedexpansion
rd /s/q 测试文件夹 2>nul
for /l %%a in (1 1 10) do (
   md 测试文件夹\%%a1\%%a2\%%a3\%%a4\%%a5\%%a6\%%a7\%%a8\%%a9\%%a10
)
for /f "delims=" %%a in ('dir/b/s/ad 测试文件夹') do (
   for /l %%i in (1 1 10) do cd.>%%a\!random!!random!!random!.txt
)
echo 以创建文件夹及文件。。。
pause
复制代码

随风

dir /tc 是创建时间

随风

方法都不错啊，效率也高
以下是我代码
::方法一、
:: 用findstr 来过滤多余的信息，代码显得更整洁易懂，但效率略低一点点。
:: 但子文件越多时速度却相对越快，因为子文件越多findstr过滤掉的内容就越多。
:: 除文件路径和含文件名的行以外，其它的多余信息都被过滤掉了。
:

@echo off&setlocal enabledelayedexpansion
echo 按任意键开始
pause>nul
set t=%time%
set 指定目录=f:\111\测试文件夹
for /f "tokens=*" %%i in ('dir/a-d/tc/s "%指定目录%"^|findstr /b "[0-9] ..:"') do (
   for /f "tokens=1-3* delims= " %%a in ("%%i") do (
     set "str=%%i"
     if "!str:~1,1!"==":" (set ml=%%i) else (
        echo %%a !ml:~0,-4!\%%d&set /a n+=1
)))
echo.&echo :: 共有 !n! 个文件
call :time0 "%t%" "%time%" "ok"
echo :: 耗时 %ok%
endlocal&pause>nul&exit

:time0  以下为计算耗时封装部分。
:: code 随风 @bbs.bathone.cn 2008-08-15
setlocal&set /a n=0
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
   set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
   set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100
)
set "n=%n:-=%"
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小时 %f% 分钟 %m% 秒 %n% 毫秒"
endlocal&set "%~3=%ok%"&goto :eof
复制代码

::━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
::方法二、
:: 文件不太多时速度比用findstr要快些，但区别不太大。
:

@echo off&setlocal enabledelayedexpansion
echo 按任意键开始
pause>nul
set t=%time%
set 指定目录=f:\111\测试文件夹
for /f "skip=3 delims=" %%i in ('dir/tc/s/a-d "%指定目录%"') do (
   for /f "tokens=1-3* delims= " %%a in ("%%i") do (
     set "str=%%i"
     if "%%b"=="个文件" set "ml=" 
     if defined ml echo %%a !ml:~1,-4!\%%d&set /a n+=1
     if "!str:~2,1!"==":" set "ml=%%i"
))
echo.&echo :: 共有 !n! 个文件
call :time0 "%t%" "%time%" "ok"
echo :: 耗时 %ok%
endlocal&pause>nul&exit

:time0  以下为计算耗时封装部分。
:: code 随风 @bbs.bathone.cn 2008-08-15
setlocal&set /a n=0
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
   set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
   set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100
)
set "n=%n:-=%"
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小时 %f% 分钟 %m% 秒 %n% 毫秒"
endlocal&set "%~3=%ok%"&goto :eof
复制代码