[以解決] 如何提取文件夾名稱

joyark

[求助] 如何提取文件夾名稱
Sub Get_SubFolder_Names()
    Dim RtFolder, nlFolder
    Dim xrow As Long
    RtFolder = ThisWorkbook.Path & "\"    '这里指定你的根目录
    ' RtFolder = "C:\Users\Administrator\Desktop\"          '这里指定你的根目录
    xrow = 0
    With CreateObject("Scripting.FileSystemObject").GetFolder(RtFolder)
        For Each nlFolder In .subfolders
            ActiveCell.Offset(xrow) = nlFolder.Name
            xrow = xrow + 1
        Next nlFolder
    End With
End Sub

pureshadow

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-2)

joyark

pureshadow 发表于 2011-8-29 13:52
=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-2)

須要文件存放那文件夾內寫出所有文件夾名稱謝謝:

gfp12345678

謝謝分享