VBA列出指定文件夹下所有的文件夹和子文件夹名称

cliffordzhou

如题。

我的情况是，我在D，E，F盘中各有文件夹数个,如Docs1,Docs2,Docs3,Docs4等，Docs下面还有一系列子文件夹如:水，木，金，火，土等不确定数量，我需要列出所有文件夹的名字。在A列显示序号，B列显示盘符D/E/F名称，C列显示文件夹Docs名称,D列显示子文件名称。谢谢了！！！

[ 本帖最后由 cliffordzhou 于 2010-1-18 10:27 编辑 ]

yanjie

Public Sub 获取文件夹中的所有子文件夹名()
'获取文件夹中的所有子文件夹名 (SubFolders)
    Dim fso As Scripting.FileSystemObject
    Dim myFol As Scripting.Folder
    Dim myFolder As String
    Dim i As Long, j
    myFolder = "C:\Documents and Settings\Administrator\My Documents"
    '上面这句指定你的D，E，F三个文件夹及路径
    j = UBound(Split(myFolder, "\"))
    Range("A1:C1") = Array("序号", "文件夹", "子文件夹名称")
    Set fso = New Scripting.FileSystemObject
    i = 2
    For Each myFol In fso.GetFolder(myFolder).SubFolders
        Cells(i, 1) = i - 1
        Cells(i, 2) = Split(myFolder, "\")(j)
        Cells(i, 3) = myFol.Name
        i = i + 1
    Next
    Set fso = Nothing
End Sub

cliffordzhou

fso As Scripting.FileSystemObject
说USER DEFINED TYPE NOT DEFINED。怎么办？

lb_bn

在VBE里引用
microsoft scripting runtime

cliffordzhou

谢谢了！有用！

cliffordzhou

谢谢yanjie，我一开始没有表达清楚，你这个很好，但是还没有达到我的最终目的，我重新改了一下描述。

cliffordzhou

some body help me!

大雨治水

楼主的只能是单层，多层就不能了！{:soso_e113:}