<06-5 특정 폴더 내, 모든 폴더의 이름 가져오기>

<06-5 특정 폴더 내, 모든 폴더의 이름 가져오기> 
   Dim PN As String 
   Dim FN As String 
    
   PN = Environ("userprofile") & "\Desktop\Test\" 
   FN = Dir(PN, vbDirectory) 
    
   Do While FN <> "" 
       
      If GetAttr(PN & FN) = vbDirectory Then 'getattr함수를 사용하여 dir함수가 반환한 이름이 파일? 폴더? 디렉토리? 인지 확인할 수 있다 
         Cells(Rows.Count, "a").End(3)(2) = FN 
      End If 
       
      FN = Dir() 
   Loop

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]