如何用VB中的DIR函数查找某个属性的文件???

2025-02-14 14:56:53

推荐回答（3个）

回答1：

用Dir枚举
再用Open打开
用FileAttr就可以获得其属性
判断一下即可

回答2：

Public Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String) As Long
Static lFiles As Long
Dim sDir As String
Dim sSubDirs() As String
Dim lIndex As Long
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sDir = Dir(sPath & sFileSpec)

Do While Len(sDir)
lFiles = lFiles + 1
ReDim Preserve sFiles(1 To lFiles)
sFiles(lFiles) = sPath & sDir
sDir = Dir
Loop

lIndex = 0
sDir = Dir(sPath & "*.*", 16)
Do While Len(sDir)
If Left(sDir, 1) <> "." Then

If GetAttr(sPath & sDir) And vbDirectory Then
lIndex = lIndex + 1

ReDim Preserve sSubDirs(1 To lIndex)
sSubDirs(lIndex) = sPath & sDir & "\"
End If
End If
sDir = Dir
Loop
For lIndex = 1 To lIndex

Call TreeSearch(sSubDirs(lIndex), sFileSpec, sFiles())
Next lIndex
TreeSearch = lFiles
End Function

回答3：

树的层次遍历问题
要用一个队列完成，楼上用了动态数组，用Collection类也可以，不会的话就用列表框控件当队列

最新问答

体内有毒素，怎么排毒？？？

公司入职一年，感到很难融入同事圈子，要考虑换个工作环境吗？

找一本很久之前看过的台湾言情小说。开头是男女主已经结婚几年了，

带薪培训软件工程师实习生，培训2个月，每月2300工资还包住，这份工作靠谱吗？在58同城找的。

石家庄麦特达微电子跟13所是什么关系？

明天会更好合唱歌谱

请问从上海洪桥机场到昆山前进东路有公交车吗?

如何做豆腐豆与水与石膏比例系几多

易淘工作室是骗人的千万不要相信我已经上当了说不加入要退保证金给我结果把我的QQ拉黑了

着字怎么读？