zoukankan      html  css  js  c++  java
  • 20170906xlVBA_RecursionGetFiles

    Dim Dic As Object
    Sub GetFileName()
        Dim FolderPath As String
        Set Dic = CreateObject("Scripting.Dictionary")
        FolderPath = ThisWorkbook.Path & Application.PathSeparator & "2011年报表"
        RecursionFolder FolderPath
        Set Rng = ThisWorkbook.Worksheets(1).Range("A1")
        Rng.Resize(Dic.Count, 1).Value = Application.WorksheetFunction.Transpose(Dic.Items)
        
    End Sub
    
    Sub RecursionFolder(ByVal FolderPath As String)
        Dim Fso As Object
        Dim MainFolder As Object
        Dim OneFolder As Object
        Dim OneFile As Object
        Dim Index As Long
        
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set MainFolder = Fso.GetFolder(FolderPath)
        If MainFolder.Files.Count > 0 Then
            For Each OneFile In MainFolder.Files
                Index = Dic.Count + 1
                Dic(Index) = OneFile.Name
                Debug.Print Index; OneFile.Name
            Next
        End If
        For Each OneFolder In MainFolder.SubFolders
            RecursionFolder OneFolder.Path
        Next
        Set Fso = Nothing
        Set MainFolder = Nothing
    End Sub
    

      

  • 相关阅读:
    聚美优品面试题
    前端开发常用的网站
    JS 正则表达式大全
    软件工程作业二
    大三个人简述
    2019期末总结
    2019春第一次课程设计实验报告
    2019第十二周作业
    2019第十一周作业
    2019第十周作业
  • 原文地址:https://www.cnblogs.com/nextseven/p/7486836.html
Copyright © 2011-2022 走看看