您的位置：程序门 -> vb -> vba

菜鸟问题：关于vba的子文件夹查询

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

菜鸟问题：关于vba的子文件夹查询

发表于：2007-12-07 20:46:51 楼主

我在用vba查询子文件夹，可是有段代码不太明白，希望高手能够解答。

s = dir（mpath, vbarchive + vbdirectory + vbhidden + vbnormal + vbreadonly + vbsystem)
do while s <> ""
if s <> "." and s <> ".." then
if （getattr（mpath & s) and vbdirectory) = vbdirectory then
d = d + 1
redim preserve sdir（d)
sdir（d) = mpath & s
end if
end if
s = dir
loop

为什么要进行s <> "." and s <> ".."，有什么作用吗？

发表于：2007-12-07 23:51:141楼得分:0

vb的dir 函数和dos的dir命令很相似，都要返回.和..
分别代表根目录和上级目录

发表于：2007-12-08 00:31:252楼得分:0

用findfirstfile（） api

发表于：2007-12-21 09:48:473楼得分:0

set fs = application.filesearch
这个对象比较简单

下一篇：如何提取“自动筛选”后所形成的各字段的下拉列表？
上一篇：边框设置

其他资讯