【急！！】vb6.0 如何获取文件夹大小

对不起，一句话搞不定，因为我也是vb菜鸟但是我不用什么api

请先加一个filelistbox，叫file1（默认名称你不用改），visible = false

代码：

Private Sub form_Click()

File1Path = "D:\1\"

Dim fc%, al#

fc = File1ListCount - 1

Dim fl(32767) As Long

For a = 0 To fc

fl(a) = FileLen("D:\1\" & File1List(a))

Next

For a = 0 To fc

al = al + fl(a)

Next

MsgBox (al / 1048576 & "MB")

End Sub

其中“D:\1\”就是你说的路径\wen\jian，但是这个没有根目录如D:，你自己改一下，如果文件夹里有文件夹，那就到vb吧里面找一找我的贴子。

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xxbat，编码选ANSI，跟要处理的文件放一起双击运行

@echo off

rem 获取当前目录里一个指定名称文件的大小

set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%@% %z%

cd /d "%~dp0"

set "file=指定文件zip"

if not exist "%file%" (echo;"%file%" not found&pause&exit)

for /f "delims=" %%a in ('dir /a-d-h/b "%file%"') do echo;%%~za

echo;%#% +%$%%$%/%@% %z%

pause

exit

以上就是关于【急！！】vb6.0 如何获取文件夹大小全部的内容，包括:【急！！】vb6.0 如何获取文件夹大小、bat获取文件夹下指定文件大小、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！