使用VB遍历文件夹内的所有文件,文件夹内没有子文件夹,内含的文件最多15万

1/因为用自带的文件操作控件最大只能到3万,所以现在想看有没有什么其他方法,2/现在我尝试了dir函数在文件数少的时候是可以遍历的,当然自带的文件控件也可以,但是我在使用... 1/因为用自带的文件操作控件最大只能到3万,所以现在想看有没有什么其他方法,
2/现在我尝试了dir函数在文件数少的时候是可以遍历的,当然自带的文件控件也可以,但是我在使用了dir函数得到了第一个满足要求的文件后,我针对这个文件做了很多的操作,包括根据文件内的内容,再在其他文件夹(不是遍历的文件夹)内新建文件,编辑文件内容等等新文件操作。当这些都操作完成后,我再次调用dir函数,可是他直接返回空字符串代表搜索完成,相当于跳转回来的时候,dir无论文件夹内满足要求的文件有多少,全部返回空字符串。
3/好像可以用filenext,filefirst这些,烦请指教!
4/最关键的是文件夹内文件数远超5万,一般的文件遍历方法不行。最好在最开始系统自己的卡顿(因为文件数太多)之后,所编写的软件不要再卡顿很长时间。
展开
 我来答
网海1书生
科技发烧友

2017-02-04 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26226

向TA提问 私信TA
展开全部

首先一个基本概念要先搞清楚:在FAT32文件系统中,一个文件夹内放的文件及子文件夹数量的上限是65534个(如果用了长文件名,这个数量会减少),而在NTFS文件系统中,这个值就变为4G-1即40多亿,几乎是无限了。你说的15万个文件的文件夹,那很显然是NTFS系统的。

其次,VB6是上世纪末出生的老古董软件,是32位的程序开发语言,它诞生的时候,FAT32是当时最常见也是最先进的文件系统,所以VB6也是按FAT32来操作文件的,再考虑到要兼容长文件名,所以VB6本身的控件和函数在一个文件夹中所能操作的文件数量限制是32767个(折半)。

因此,你这15万个文件的文件夹是无法用VB本身自带的控件或函数来遍历的,只能使用第三方控件或组件,比如大名鼎鼎的FSO:

Dim fso As Object, fd As Object, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetFolder("要处理的文件夹全路径名写在这")
For Each f In fd.Files
    '这里是对遍历出的每个文件进行操作
    '其中f.Name是文件名,f.Path是文件路径,
    'f.Size是文件大小,f.Type是文件类型,等等
    '为了防止卡顿,可以在这个循环里用下面这行:
    'DoEvents
Next
Set fd = Nothing
Set fso = Nothing

我没测试,因为我没有这么多文件的文件夹。

如果这个方法也不行,那就只能用API了。

追问
谢谢,我先尝试一下,有疑问再请教你了!
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式