zqz0012005

你儿子加上 find "." 是为了过滤掉文件夹吧？这样就降低了效率
dir自己有开关可以过滤：dir /a-d

zqz0012005

计算文件大小要准确一些

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