使用Excel VBA

1. 開啟Visual Basic編輯畫面

   

2. 在工具列選擇插入→模組或從左側專案視窗中按滑鼠右鍵然後再選擇插入→模組

   

3. 複製以下程式碼後，再到新增的模組貼上程式碼

   Public Function GetDirectories(ByVal sourceDir As String)
   
   Set fso = CreateObject("Scripting.FileSystemObject")
    
   Set F = fso.GetFolder(sourceDir)
   
   GetDirectories = Application.WorksheetFunction.Transpose(Map(F.SubFolders))
   
   
   End Function
   
   Function Map(ByVal A As Variant) As Variant
   
       Dim MyDynArr() As String
           Dim i As Integer
           i = 0
         For Each fc In A
         ReDim Preserve MyDynArr(i)
         MyDynArr(i) = fc.Name
         Debug.Print fc.Name
         i = i + 1
       Next fc
       Map = MyDynArr
   End Function

4. 貼上程式碼後，存檔

   

5. 回到工作表，到要呈現目錄的欄位，輸入公式=GetDirectories(A1)

   

如果想要列出檔案，可以參考這篇文章 Excel中列出某個目錄底下所有檔案