怎样列出不包含指定类型文件的子文件夹名称

zp602

各位老师早上好！请教个问题：
当前目录有A、B、C、D等若干个子文件夹，每个子文件夹都包含唯一一个.xls的文件；
现假设C文件夹和D文件夹下面没有.xls文件，如何用代码把C、D文件夹的名称提取出来（不要路径），顺序放在A1、A2单元格，同时删除C、D文件夹？

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
这个资料楼主参考下，可以在遍历文件夹下文件的时候设置变量计数，根据计数结果决定是否有文件的

zp602

liulang0808 发表于 2020-3-18 07:50
http://club.excelhome.net/thread-1258425-1-1.html
这个资料楼主参考下，可以在遍历文件夹下文件的时候 ...

liulang0808版主，根据您的代码《遍历当前文件夹及所有子文件夹下的文件》做了修改，得到的是空白，能帮我看一下哪里错了吗

Sub 查找不含指定类型文件的文件夹()
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.ClearContents
    Getfd (ThisWorkbook.Path)
    Application.ScreenUpdating = True
End Sub
Sub Getfd(ByVal pth)
    Set Fso = CreateObject("scripting.filesystemobject")
    Set ff = Fso.getfolder(pth)
    For Each f In ff.Files
        If Not f.Name Like "*.xls" Then
        Cells(Rows.Count, 1).End(3).Offset(1) = fd
        End If
    Next f
    For Each fd In ff.subfolders
        Getfd (fd)
    Next fd
End Sub

renkangjizhen

用fso遍历文件夹，提取子文件夹名称

zp602

renkangjizhen 发表于 2020-3-18 09:51
用fso遍历文件夹，提取子文件夹名称

谢了。我参考版主的帖子修改了代码，提取不到数据，帮我看看一下？回帖已经发了代码审核中。