[文件操作] 求获取文件路径、名称和大小的代码

yylogo

求获取文件路径、名称和大小的代码。
其实以下代码已经能获取文件路径和文件名，只可惜，画龙没有点睛，文件的大小不知如何获取。望bat圈内张僧繇点睛，谢谢。
dir /b /s | find "." > (yylogo.com).txt

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 编辑 ]

Batcher

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

namejm

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

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

yylogo

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

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

yylogo

各位先生，遥寄香烟一包，聊表谢意。

贵站一个字：快

pusofalse

（时间差问题。。。），7楼的代码原本写错了，已经修改，但仍不是你想要的格式，如下：

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

%%~za扩展的大小单位为字节，只好除以1024得到其KB单位的大小，但又不能计算小数，所以只能算出个大概的大小了。

yylogo

7楼修改后，问题彻底解决。谢谢各位。明天一定让他去网站宣传贵站的神速和效率，以及负责。
上网两年，最激动的一个晚上。

随风

13岁，还真是不错啊。
以在4楼更改，将内容追加到a.txt中。

yylogo

我去测试一下，又有朋友回答了。7楼的产生了一个a.txt文件，可里面的内容是这样的：
%~dpnxtza
%~dpnxtza
%~dpnxtza
%~dpnxtza
%~dpnxtza
......
我需要a.txt里面有如下形式的内容：
F:\novel\小说\黑道学生\黑道学生3\黑道学生3.txt  1024k
F:\novel\小说\黑道学生\黑道学生1\黑道学生1.txt  512k
F:\novel\小说\恶魔的法则\恶魔的法则3.txt  256k
F:\novel\小说\恶魔的法则\恶魔的法则4.txt  256k

各位辛苦了，这么晚了

zqz0012005

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

pusofalse

粗心，7楼的代码写错了，已经修改。

yylogo

那段代码是我儿子写（13岁）的，他说他没办法获得文件的大小。我一窍不通，楼上几位的回答我一测试，4楼似乎更好，可我不会转换为txt文档，只能在dos环境下看到。
你们能否再修改一下，谢谢。

pusofalse

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

%%~ta 文件的修改日期
%%~za 文件的大小信息
可以组合起来使用。 以上代码循环子目录。

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