遍历所有子文件夹枚举指定类型文件或文件夹的函数

smartsoft · 发表于 2011-9-7 20:01

挺细心哈
可考虑加隐藏和只读文件，系统文件就算了

goldowl2011 · 发表于 2011-9-8 08:27

下载学习，新的思路，谢谢。

XZ19860527 · 发表于 2011-9-10 18:38

枚举文件夹好像03要好一些

hzhb14796 · 发表于 2011-9-27 13:52

代码值的好好学习

星石 · 发表于 2011-11-22 09:03

如果要查找的是要目录如： “F:\” 时，提示“文件号错误”，If (GetAttr(brr(i) & MyFile) And vbDirectory) = vbDirectory 有错误！

cg1 · 发表于 2011-11-22 09:33

如果要查找的是要目录如： “L:\” 时，提示“文件号错误”，If (GetAttr(brr(i) & MyFile) And vbDirectory) = vbDirectory 有错误！

原因是文件中只要包含非 GB2312 字符就出错。

wpxxsyzx · 发表于 2011-11-22 11:35

cg1 发表于 2011-11-22 09:33
如果要查找的是要目录如： “L:\” 时，提示“文件号错误”，If (GetAttr(brr(i) & MyFile) And vbDirecto ...

输入f:
我这一切正常

cg1 · 发表于 2011-11-22 12:43

原因是文件中只要包含非 GB2312 字符就出错。

cg1 · 发表于 2011-11-22 12:54

请把下属 ZIP 文件下载到你的硬盘上的任何一个目录，然后解压缩在这个目录，然后用楼主的代码扫描这个目录，出错

http://access911.net/csdn/filedescription.asp?mdb=2011-11-22&id=42

ljt1015 · 发表于 2011-11-24 02:46

wpxxsyzx 发表于 2011-8-31 23:58
就是图个在平时使用时方便

每次想搜文件的时候都得进入VBA里改参数吗？
能否做个更易用的版本，在表内单元格内输入路径等信息即可搜索？

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

[分享] 遍历所有子文件夹枚举指定类型文件或文件夹的函数