yylogo

14楼的谢谢，答案已不是很重要了。
你们恢复了我对专业人员回答问题的信心。以前总在新浪的爱问、百度的知道、雅虎的知识堂找师傅，好难咯。今晚算是有缘各位了，我的一个不眠之夜。。。
儿子交给你们了，我一万个放心。
明天再把他的那个“分小说”的程序交给你们修改，我找不到他的源程序了，c语言写的，非常好用，我经常用，但有一个小缺陷，他无法克服。

[ 本帖最后由 yylogo 于 2008-10-8 01:51 编辑 ]

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

namejm

　　cmd的 set /a 语句只能计算 -2^31～2^31-1 这个范围内的数据，无论单独的数字或者是经过运算后的数字，只要超过这个范围，都会出错，在做算术运算的时候要特别小心。用纯批处理只能获取到以字节为单位的数字，若要转化为以K或M为单位的数据，不可避免地要遇到大数的处理问题。若有上G的单个文件，以上的批处理代码将会出现错误。

Batcher

大数计算还是交给VBS来做吧^_^

terse

除以1024得到其KB单位的大小  当心溢出

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

[ 本帖最后由 terse 于 2008-10-9 16:37 编辑 ]