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

@echo off&setlocal enabledelayedexpansion
set "t=%time%"
set "desfolder=f:\111"
set "s=%desfolder%"
:lp
if defined s set/a y+=1&set "s=%s:~1%"&goto lp
for /f "skip=2 tokens=1,2,3*" %%a in ('dir/s/tc/a-d %desfolder%\*.*') do (
     set "var=%%a"
     if /i "!var:~,%y%!" equ "%desfolder%" (
         set "str=%%a"
         ) else (
         set/a n+=1,x=n%%11
         if !x! neq 0 set/a s+=1
         if !n! lss 1100 if !x! neq 0 echo  %%a %%b !str!\%%d
))
set/a s-=3
echo   %s%个文件
call :time0 "%t%" "%time%" "ok"
echo.&echo 耗时: %ok%
pause&exit/b
: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
set "f=f:\111\测试文件夹"
set t=%time%
for /f "skip=3 tokens=1,2,3*" %%i in ('dir/s/tc/a-d "%f%\*.*"') do (
if defined x echo !x! %%i %%j&goto ok
if "%%i"=="所列文件总数:" set x=%%i
set str=%%i
if "!str:~1,2!"==":\" (set ph=%%i)else if not defined x if not "%%j"=="个文件" echo !ph!\%%l   %%i %%j
)
:ok
call :time0 "%t%" "%time%" "ok"
echo.&echo 耗时: %ok%
pause&exit
:time0
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
set "f=f:\111\测试文件夹"
set t=%time%
for /f "skip=3 tokens=1,2,3*" %%i in ('dir/s/tc/a-d "%f%\*.*"') do (
set str=%%i
set var=%%j
if "!str:~1,2!"==":\" (set ph=%%i)else if "!var:~2,1!"==":" echo !ph!\%%l   %%i %%j&set /a n+=1
)
echo 文件总数: %n%
call :time0 "%t%" "%time%" "ok"
echo.&echo 耗时: %ok%
pause&exit
:time0
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
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
复制代码

@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
复制代码

@echo off&setlocal enabledelayedexpansion
set "f=c:\测试文件夹"
set t=%time%
for /f "skip=3 tokens=1,2,4  delims= " %%i in ('dir /a-d /tc /s %f%') do (
   if not %%j==个文件  if not %%j==个目录 if not %%i==所列文件总数: (
      if  %%j==的目录 (set l=%%i) else (
        echo %%i %%j !l!\%%k
        set /a c+=1
       )
   )
)
echo 所列文件总数: %c%
:: 计算批处理耗时的函数代码，直接复制到代码末尾即可。
:: 别忘了在代码开头加一句 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
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "skip=3 delims=" %%a in ('dir /s /a-d /tc test') do (
    set "str=%%a"
    if "!str:\=!" neq "!str!" set "pd=!str!"
    if "!str:%date:~,4%=!" neq "!str!" (
       for /f "tokens=1,2,4 delims= " %%i in ("%%a") do (
           if "%%i" neq "所列文件总数:" set /a n+=1&echo %%i %%j !pd:~,-4!\%%k
       )
    )
)
echo 总共有%n%个文件。&pause>nul
复制代码

@echo off
setlocal EnableDelayedExpansion
set t=%time%
set /a a=0
set "f=F:\bat\test\测试文件夹"
for /r %f% %%i in (*) do (
set /a a=!a!+1
echo 第!a!文件详细路径是:%%i
echo 创建时间:
dir /tc %%i|find "/"
)
echo 总文件数:%a%


:: 计算批处理耗时的函数代码，直接复制到代码末尾即可。

:: 别忘了在代码开头加一句 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
复制代码