[Excel] vba Subdirectory , Filelist 만들기

서브디렉토리(서브폴더) 및 파일리스트를 만들 수 있습니다. 

 

 

## FilelistObject 사용하기

 

먼저 FilelistObject를 사용하기위해 Library(DLL)를 등록해야 합니다. 

 

Excel 에서 [Alt]+[F11] 키를 누르면 아래 Visual Basic 창이 뜹니다. 

 

도구메뉴에서 참조를 클릭합니다. 

 

 

아래 창이 나오면 Microsoft Scripting Runtime을 찾아서 Check를 하고 확인을 클릭합니다.

 

 

 

 

 

 

## Source Code

 

Private index As Integer

Private depth As Integer

 

Function FolderFile(fn As String)

 

 depth = depth + 1

 

 Dim fs As FileSystemObject

 Set fs = New FileSystemObject

 Dim foldeer As Folder

 Dim filename As String

 Dim Filnavn() As String

 Set foldeer = fs.GetFolder(fn)

 

 For Each Folder In foldeer.SubFolders

 

        ' Debug.Print "D " & Folder

        

        'Display

        Filnavn() = Split(Folder, "\")

        ActiveSheet.Cells(index, depth).Value = "Directory : " & Filnavn(UBound(Filnavn()))

        index = index + 1

        

        'SubDirectory

        FolderFile (Folder)

 Next

 

 For Each File In foldeer.Files

 

        'Debug.Print "F " & File

             

         'Display

         Filnavn() = Split(File, "\")

         ActiveSheet.Cells(index, depth).Value = "File : " & Filnavn(UBound(Filnavn()))

         index = index + 1

 Next

 

 depth = depth - 1

 

End Function

 

 

 

 

FolderTree_Filelist.zip

0.01MB