批处理BAT如何提取文件大小？

wang5185244 · 发表于 2014-5-13 22:57:34

某目录下存在很多名称不相同的文件，但是相同名称存在不同格式;
例如：
123456.txt
123456.doc
123456.xls
654321.txt
654321.doc
654321.doc
……
现在提取相同名称文件的大小：123456.*的文件大小654321.*的文件大小……求各位大神指导

terse · 发表于 2014-5-13 23:27:52

FOR %%~zi 扩张到文件大小

CrLf · 发表于 2014-5-13 23:53:28

系统默认就是按文件名排序的，所以...

for %%a in (*) do echo %%a 大小为： %%~za

复制代码

如果非要按一组一组显示，可以这样：

@echo off
for %%a in (*.txt) do (
echo %%~na.*------------
for %%b in ("%%~na.*") do echo %%~xb 大小为：%%~zb
)
pause

复制代码

wang5185244 · 发表于 2014-5-14 09:04:17

回复 3# CrLf 我想将名字相同格式不同的大小去和，在这基础上怎么改，谢谢

wang5185244 · 发表于 2014-5-14 09:06:11

回复 3# CrLf 文件名相同格式不同文件大小求和

wang5185244 · 发表于 2014-5-14 09:40:08

回复 3# CrLf 这提取文件大小单位是什么？字节？

wang5185244 · 发表于 2014-5-14 11:09:11

回复 3# CrLf 怎么输出到文本

Batcher · 发表于 2014-5-14 13:17:59

回复 7# wang5185244

输出重定向
http://bbs.bathome.net/thread-2516-1-1.html

apang · 发表于 2014-5-14 13:31:04

本帖最后由 apang 于 2014-5-14 13:35 编辑

保存为test.vbs，更改第一行路径为实际路径

path = "d:\Test"
Set fso = CreateObject("Scripting.FileSystemObject")
Set dic = CreateObject("Scripting.Dictionary")
For Each f in fso.GetFolder(path).Files
strName = LCase(fso.GetBaseName(f))
If dic.Exists(strName) Then
dic.Item(strName) = dic.Item(strName) + f.Size
Else
dic.Add strName, f.Size
End If
Next
For Each a in dic.Keys
s = s & a & ".*" & vbTab & dic.Item(a) & " Byte" & vbCrLf
Next
fso.CreateTextFile("Result.txt", true).Write s
CreateObject("WScript.Shell").Run "NotePad Result.txt"

复制代码

wang5185244 · 发表于 2014-5-19 18:52:31

回复 9# apang

如果是其他格式呢？

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文件操作] 批处理BAT如何提取文件大小？

评分