excel vba如何搜索某目录里的子目录名称是否包含某关键字？并返回搜到的个数？

[火仔]

不是搜文件的名称，是搜目录的名称。


例如C:\TEST\里面有5个folder:
QWE
ASD_1
ASD_2
ASD_3
TYU

并且，C:\TEST\ASD_1\里含有一个ASD.TXT文件

然后我要的结果是：我搜索关键字“ASD”，返回的结果为3（搜到3个folder name包含“ASD”的目录，但不搜里面的文件）

[ZenRoi]

Str = ""
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each Fld In Fso.GetFolder("C:\TEST").SubFolders
    If Fld.Name Like "*ASD*" Then Str = Str & Fld.Name & " "
Next

MsgBox Str

[dsd999]

1楼代码正确。

[火仔]

[Quote=引用 1 楼 的回复:]

VB code
Str = ""
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each Fld In Fso.GetFolder("C:\TEST").SubFolders
If Fld.Name Like "*ASD*" Then Str = Str & Fld.Name & " "
Next

M……
[/Quote]



这段代码貌似只能得到一层的subfolder，再深一层就搜索不到了。。。如何能搜到最深处？

[ZenRoi]

多层尝试搜索可以使用函数递归的方法来解决：

Public Fso As Object
Public Str As String

Sub getFldList()
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Fldnm ("C:\TEST")
    MsgBox Str
End Sub

Function Fldnm(pth$)
    Dim Fld
    
    For Each Fld In Fso.getfolder(pth).subfolders
        If Fld.Name Like "*ASD*" Then Str = Str & Fld.Name & " "
        Fldnm (Fld)
    Next
End Function