@echo off
for %%a in (*.txt) do (
  echo 文件路径：%%~dpa
  echo 文件名称：%%~nxa
  echo 文件大小：%%~za
)
复制代码

@(for /r %%a in (*) do echo %%~dpnxtza)&pause
复制代码

另外，FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:

     ~I         - 删除任何引号(")，扩充 %I
     %~fI        - 将 %I 扩充到一个完全合格的路径名
     %~dI        - 仅将 %I 扩充到一个驱动器号
     %~pI        - 仅将 %I 扩充到一个路径
     %~nI        - 仅将 %I 扩充到一个文件名
     %~xI        - 仅将 %I 扩充到一个文件扩展名
     %~sI        - 扩充的路径只含有短名
     %~aI        - 将 %I 扩充到文件的文件属性
     %~tI        - 将 %I 扩充到文件的日期/时间
     %~zI        - 将 %I 扩充到文件的大小
     %~$PATH:I   - 查找列在路径环境变量的目录，并将 %I 扩充
                   到找到的第一个完全合格的名称。如果环境变量名
                   未被定义，或者没有找到文件，此组合键会扩充到
                   空字符串

可以组合修饰符来得到多重结果:

     %~dpI       - 仅将 %I 扩充到一个驱动器号和路径
     %~nxI       - 仅将 %I 扩充到一个文件名和扩展名
     %~fsI       - 仅将 %I 扩充到一个带有短名的完整路径名
     %~dp$PATH:i - 查找列在路径环境变量的目录，并将 %I 扩充
                   到找到的第一个驱动器号和路径。
     %~ftzaI     - 将 %I 扩充到类似输出线路的 DIR
复制代码

@echo off
for %%i in (*) do if exist "%%i" >>a.txt echo %%~dpnxi %%~zi
start "" "a.txt"
复制代码

@echo off
for /r %%i in (*) do if exist "%%i" >>a.txt echo %%i %%~zi
start "" "a.txt"
复制代码

@echo off
cd .>a.txt
for /r %%i in (*) do echo>>a.txt %%~dpnxtzi
start a.txt
复制代码

@echo off
cd.>a.txt
for /r %%a in (*) do (
      set/a kb=%%~za/1024
      call echo %%a %%kb%%k
)>>a.txt
start a.txt
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
fso.OpenTextFile("a.txt",8,true).WriteLine TreeFile(".")
CreateObject("WScript.Shell").Run "a.txt"

function TreeFile(strPath)
    Set oFolder = fso.GetFolder(strPath)
    set Files = oFolder.Files
    For Each oFile In Files
        s = s & oFile.Path & vbTab & Left(oFile.Size/1024,5) & "KB" & vbCrLf
    Next
    Set Folders = oFolder.Subfolders
    For Each oFolder In Folders
        s = s & TreeFile(oFolder.Path) '递归
    Next
TreeFile = s
End function
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
  set str=%%~zi
  if %%~zi lss 1024 (set k=字节&set z=%%~zi)else set k=KB&call :lp
  call echo  %%~fi !z! !K!
  set z=&set n=&set l=
)
pause&exit
:lp
    set/a l=%l%%str:~,1%%%1024,s=%l%%str:~,1%/1024
    if %z%#==0# set z=
    set z=%z%%s%
    set str=%str:~1%
    if defined str goto lp
    set z=%z%.
:lp1
    set/a l*=10,s=l/1024,n+=1
    if %n% lss 3 (
    set z=%z%%s%
    set/a l=l%%1024
    goto lp1
)
复制代码