首頁猿問獲取vba中的子目錄列表。

獲取vba中的子目錄列表。

源碼算法與數(shù)據(jù)結構

慕容3067478 2019-07-17 18:38:05

獲取vba中的子目錄列表。我想要一個目錄中所有子目錄的列表。如果可以的話，我想將它擴展為遞歸函數(shù)。然而，我最初獲得子目錄的方法失敗了。它只顯示包括文件在內的所有內容：sDir = Dir(sPath, vbDirectory)Do Until LenB(sDir) = 0 Debug.Print sDir sDir = DirLoop列表以“.”開頭和幾個文件夾并以‘.txt’文件結尾。編輯：我要補充的是，這必須在Word中運行，而不是在Excel中運行(許多函數(shù)在Word中是不可用的)，而且它是Office 2010。編輯2：可以使用iAtt = GetAttr(sPath & sDir)If CBool(iAtt And vbDirectory) Then ...End If但這給我?guī)砹诵碌膯栴}，所以我現(xiàn)在使用基于Scripting.FileSystemObject.

查看完整描述

3 回答

楊__羊羊

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

使用FileSystemObject會更好。我估計。

要調用它，只需說：列表文件夾“c：\data”

Sub listfolders(startfolder)''Reference Windows Script Host Object Model''If you prefer, just Dim everything as Object''and use CreateObject("Scripting.FileSystemObject")Dim fs As New FileSystemObjectDim fl1 As FolderDim fl2 As FolderSet fl1 = fs.GetFolder(startfolder)For Each fl2 In fl1.SubFolders
    Debug.Print fl2.Path
    listfolders fl2.PathNextEnd Sub

反對回復 2019-07-17