首頁猿問使用VBA循環(huán)遍歷所有子文件夾

使用VBA循環(huán)遍歷所有子文件夾

源碼算法與數(shù)據(jù)結(jié)構(gòu) .NET

慕俠2389804 2019-07-12 10:37:01

使用VBA循環(huán)遍歷所有子文件夾我正在尋找一個VBA腳本，它將遍歷指定文件夾的所有子文件夾。當我說所有子文件夾時，我指的是指定文件夾中的每個文件夾，以及其中的每個文件夾.理論上可以有無限個嵌套子文件夾，但實際上它可能不會超過3或4。我使用的是VBA腳本運行時對象，這樣一旦我循環(huán)到文件夾中，我就可以檢查一些文件的屬性(但我知道怎么做)。謝謝你的幫助!這個問題不同于前面問題中列出的“相似”問題包含已知的目錄，而這里的需要是查找已知的和未知的目錄。還需要多個子目錄層。你們真的應該在發(fā)射“復制”之前讀一下這個問題。

查看完整描述

3 回答

慕容森

TA貢獻1853條經(jīng)驗獲得超18個贊

只是一個簡單的文件夾向下鉆。

Dim FileSystem As ObjectDim HostFolder As StringHostFolder = "C:\"Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)Sub DoFolder(Folder)
    Dim SubFolder    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder    Next
    Dim File    For Each File In Folder.Files        ' Operate on each file
    NextEnd Sub

反對回復 2019-07-12

婷婷同學_

TA貢獻1844條經(jīng)驗獲得超8個贊

并補充里奇的遞歸答案，一種非遞歸的方法。

Public Sub NonRecursiveMethod()
    Dim fso, oFolder, oSubfolder, oFile, queue As Collection    Set fso = CreateObject("Scripting.FileSystemObject")
    Set queue = New Collection
    queue.Add fso.GetFolder("your folder path variable") 'obviously replace

    Do While queue.Count > 0
        Set oFolder = queue(1)
        queue.Remove 1 'dequeue
        '...insert any folder processing code here...
        For Each oSubfolder In oFolder.SubFolders
            queue.Add oSubfolder 'enqueue
        Next oSubfolder        For Each oFile In oFolder.Files            '...insert any file processing code here...
        Next oFile    LoopEnd Sub

您可以為FIFO行為使用隊列(如上文所示)，也可以為LIFO行為使用堆棧，該堆棧的處理順序與遞歸方法相同(替換Set oFolder = queue(1)帶著Set oFolder = queue(queue.Count)替換queue.Remove(1)帶著queue.Remove(queue.Count)，并且可能將變量重命名為.)

反對回復 2019-07-12

月關(guān)寶盒

TA貢獻1772條經(jīng)驗獲得超5個贊

其他兩個已經(jīng)存儲在集合中，然后我們將在接下來的2個循環(huán)中處理該集合(請不要忘記queue.Remove 1移除第一個文件夾，因此第二個文件夾現(xiàn)在是集合的第一個成員，并在下一個對Queue(1)的調(diào)用中檢索。堆棧方法則相反，總是對添加的最后一個文件夾進行操作(用Queue(Quee.Count)替換Queue(1)，用Quee.Remove Quee.Count替換Quee.Remove 1)。

反對回復 2019-07-12