' 2>nul 3>nul&cls&@echo off
'&rem 批处理/bat生成能显示文件大小的树状/树形目录结构
'&mode con lines=3000
'&set #=Any question&set @=WX/&set $=Q&set/az=0x53b7e0b4
'&title %#% +%@%%$%%$% %z%
'&cd /d "%root%"
'&cscript -nologo -e:vbscript "%~f0" "."
'&echo;%#% +%@%%$%%$% %z%
'&pause&exit
  
Set fso = CreateObject("Scripting.FileSystemObject")
Set TreePath = fso.GetFolder(WSH.Arguments(0))
currentpath = fso.GetFile(WSH.ScriptFullName).ParentFolder.Path
OutFile = currentpath & "\#OutTree.txt"
fs = 0
For Each f In TreePath.Files
    fs = fs+f.size
Next
TreeStr = TreePath.path & " [" & TreePath.Size & " 字节]" & vbCrLf
Tree TreePath.path,""
WSH.echo TreeStr
WSH.Quit
  
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
        If ConFile.Path <> WSH.ScriptFullName Then
            i = i + 1
            If i = CrntFolder.Files.Count And CrntFolder.SubFolders.Count = 0 Then TempStr = "└─"
            TreeStr = TreeStr & FlSpace & Tempstr & ConFile.name & " [" & ConFile.size & " 字节]" & vbCrLf
        End If
    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
            If f.Path <> WSH.ScriptFullName Then
                fsize = fsize+f.size
            End If
        Next  
        TreeStr = TreeStr & FlSpace & TempStr & SubFolder.name & " [" & SubFolder.size & " 字节]" & vbCrLf
        Tree SubFolder,(SFSpace)
    Next
End Sub
复制代码

$Lists = New-Object System.Text.StringBuilder;
$files = ls 'D:\1\' -r | ?{$_.Directory};
$m = $files.Count.tostring().Length;
Foreach ( $i in $files )
{
	$index++;
	$ref = $i.Length;
	switch ( $ref.tostring().length )
	{
		{$_ -le 3} { $length = "{0:0.000} Byte" -f ($ref);break}
		{$_ -le 6} { $length = "{0:0.000} KB" -f ($ref/1KB);break}
		{$_ -le 9} { $length = "{0:0.000} MB" -f ($ref/1MB);break}
		$_ { $length = "{0:0.000} GB" -f ($ref/1GB)}
	}
	$n = '[' + $index.tostring().padleft($m,' ') + ']';
	[void]$Lists.AppendLine($n+' '+$i.name);
	[void]$Lists.AppendLine(' '*($m+3)+$length);
	[void]$Lists.AppendLine(' '*($m+3)+$i.LastWriteTime);
	[void]$Lists.AppendLine(' '*($m+3)+$i.FullName);
	[void]$Lists.AppendLine('');
}
[IO.File]::WriteAllLines("$pwd\输出.log",$Lists,[text.encoding]::Default);
复制代码

Rem^ & @echo off & mode 300,9999
Rem^ &cscript //NoLogo //E:VBScript "%~f0"
Rem^ &pause
Rem^ &goto :eof

Public fso, input_file, output_file
Public layer
Public Branch
call main
Sub main()
    ReDim Branch(1000)
    layer = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 脚本对象 和 当前目录
    Set obj_wsc_shell = CreateObject("wscript.shell")
    HostFolder = obj_wsc_shell.CurrentDirectory & "\"
    ' HostFolder = ThisWorkbook.Path & "\"
    Call DoFolder(fso.GetFolder(HostFolder))
    wscript.Quit
End Sub
Sub DoFolder(Folder)
    Dim i
    pref_str = ""
    For i = 1 To layer - 1
        pref_str = pref_str & Branch(i)
    Next
    If layer > 0 Then
        If Branch(layer) = "   " Then
            pref_str = pref_str & "  └─"
        Else
            pref_str = pref_str & "  ├─"
        End If
    End If
    wscript.echo  pref_str & Folder.Name
    ' Debug.Print pref_str & Folder.Name
    ' 在子目录中递归调用
    Dim SubFolder
    Dim count_SubFolders, cnt_SubFolder_or_file
    count_SubFolders = Folder.SubFolders.Count
    count_files = Folder.Files.Count
    count_SubFolders_and_files = count_SubFolders + count_files
    cnt_SubFolder_or_file = 0
    For Each SubFolder In Folder.SubFolders
        cnt_SubFolder_or_file = cnt_SubFolder_or_file + 1
        layer = layer + 1
        ' Branch 用于子对象
        If (cnt_SubFolder_or_file >= count_SubFolders_and_files) Then
            Branch(layer) = "   "
        Else
            Branch(layer) = "  │"
        End If
        Call DoFolder(SubFolder)
        layer = layer - 1
    Next
    Dim file
    For Each file In Folder.Files
        cnt_SubFolder_or_file = cnt_SubFolder_or_file + 1
        layer = layer + 1
        If (cnt_SubFolder_or_file >= count_SubFolders_and_files) Then
            Branch(layer) = "   "
        Else
            Branch(layer) = "  │"
        End If
        Call doFile(file)
        layer = layer - 1
    Next
End Sub
Sub doFile(ByRef input_file)
    Dim i
    pref_str = ""
    For i = 1 To layer - 1
        pref_str = pref_str & Branch(i)
    Next
    If layer > 0 Then
        If Branch(layer) = "   " Then
            pref_str = pref_str & "  └─"
        Else
            pref_str = pref_str & "  ├─"
        End If
    End If
    wscript.echo  pref_str & input_file.Name & " : " & input_file.Size & " Bytes"
End Sub
复制代码

			If Round(input_file.size/1099511627776, 3) > 1 Then
			      wscript.echo  pref_str & input_file.Name & "  [" & Round(input_file.size/1099511627776, 3) & " TB]"
			ElseIf Round(input_file.size/1073741824, 3) > 1 Then
			      wscript.echo  pref_str & input_file.Name & "  [" & Round(input_file.size/1073741824, 2) & " GB]"
			ElseIf Round(input_file.size/1048576, 3) > 1 Then
			      wscript.echo  pref_str & input_file.Name & "  [" & Round(input_file.size/1048576, 1) & " MB]"
			ElseIf Round(input_file.size/1024, 3) > 1 Then
			      wscript.echo  pref_str & input_file.Name & "  [" & Round(input_file.size/1024, 1) & " KB]"
			Else
			      wscript.echo  pref_str & input_file.Name & "  [" & input_file.Size & " Byte]"
			End If
复制代码