Set fso = CreateObject("Scripting.FileSystemObject")
TreePath = "."  '指定文件夹/目录路径，默认为当前文件夹/目录
OutFile = "OutTree.txt"

If TreePath = "." Then Set TreePath = fso.GetFolder(".")
fs = 0:For Each f In TreePath.Files
    fs = fs+f.size
Next
TreeStr = TreePath.path & "  (" & TreePath.SubFolders.Count & _
    " folders, "& TreePath.Files.Count &" files, "&FormatSize(fs) & _
        ", "& FormatSize(TreePath.Size) & " in total.)" & vbCrLf
Tree TreePath.path,""
fso.CreateTextFile(OutFile, True).Write TreeStr
MsgBox "查看当前目录下的OutTree.txt",vbInformation,"完成 - vbsTree"

Sub Tree(Path,SFSpace)
    Dim i,TempStr,FlSpace,fsize
    FlSpace = SFSpace & "  "
    Set CrntFolder = fso.GetFolder(Path)
    i = 0:TempStr = "├─"
    For Each ConFile In CrntFolder.Files
        i = i + 1
        If i = CrntFolder.Files.Count And CrntFolder.SubFolders.Count = 0 Then TempStr = "└─"
        TreeStr = TreeStr & FlSpace & Tempstr & ConFile.name & "  (" & FormatSize(ConFile.size) & ")" & vbCrLf
    Next
    i = 0:TempStr = "├─"
    For Each SubFolder In CrntFolder.SubFolders
        fsize = 0:i = i + 1
        If i = CrntFolder.SubFolders.Count Then
            TempStr = "└─"
            SFSpace = FlSpace & "  "
        Else
            SFSpace = FlSpace & "│"
        End If
        For Each f In SubFolder.Files
            fsize = fsize+f.size
        Next  
        TreeStr = TreeStr & FlSpace & TempStr & SubFolder.name & "  (" & SubFolder.SubFolders.Count & _
            " folders, "& SubFolder.Files.Count &" files, "& FormatSize(fsize) & _
                ", "& FormatSize(SubFolder.size) & " in total.)" & vbCrLf
        Tree SubFolder,(SFSpace)
    Next
End Sub

Function FormatSize(size)
    If size >= 1099511627776 Then
        FormatSize = FormatNumber(size/1099511627776, 2, true) & " TB"
    ElseIf size >= 1073741824 Then
        FormatSize = FormatNumber(size/1073741824, 2, true) & " GB"
    ElseIf size >= 1048576 Then
        FormatSize = FormatNumber(size/1048576, 2, true) & " MB"
    ElseIf size >= 1024 Then
        FormatSize = FormatNumber(size/1024, 2, true) & " KB"
    Else
        FormatSize = size & " Bytes"    
    End If
End Function
复制代码

@echo off
setlocal enabledelayedexpansion
:loop
set /p folder=拖入文件目录
set "folder=%folder:"=%"
cd /d "%folder%" ||goto loop
(echo;		本文档统计于%date:~0,-3% & echo.)>tree.txt
for /f "delims=[]" %%a in ('dir /s^|find "" /n /v^|find "所列文件总数"') do ( set /a num=%%a
set /a wj=!num!+1 & set /a ml=!num!+2
for /f "tokens=2 delims= " %%b in ('dir /s^|find "" /n /v^|find "[!wj!]"') do set files=%%b
for /f "tokens=2 delims= " %%c in ('dir /s^|find "" /n /v^|find "[!ml!]"') do set folders=%%c
echo;%cd%  【!files!个文件!folders!个目录】&echo. )>>tree.txt
for /f "delims=" %%d in ('dir /ad /b') do ( echo;	%%d
pushd "%%~d"
for /f "delims=" %%h in ('dir /ogn /s /b') do ( echo;		%%h  【%%~zh 】 )
popd )>>tree.txt
for /f "delims=" %%i in ('dir /a-d /b') do ( echo;	%%i  【%%~zi】 )>>tree.txt
echo;完毕&pause>nul
复制代码