폴더 밑 하위 폴더 전체 이름을 반환하고 싶어요 도와주세요

VBA
작성자
밍장군
작성일
2020-11-24 17:30
조회
62

일단 어찌해서 해당 코드를 찾았는데 하위폴더 이름만 반환합니다

아무리 고쳐봐도 하위폴더 밑에 하위폴더 이름 그리고 그 밑에 하위폴더 이름까지 필요한데

그건 어떻게 수정해야 할까요?

도와주세요

Sub GetFolderName()

Dim FSO As FileSystemObject
Dim Findpath As Folder, FindFolder As Folder
Dim i As Integer
Dim SubFName As Folder
Dim SubFPath As Folder

Set FSO = New FileSystemObject

Set Findpath = FSO.GetFolder("\\172.30.145.143\evr data\2020-11")

For Each FindFolder In Findpath.SubFolders
i = i + 1

Cells(i, 2).Value = FindFolder.name

Next FindFolder

End Sub

 

회원등급 : 가지2단계
포인트 : 595 EP
총질문 : 31 개 (마감율 : 26%)
채택답변 : 0 개
전체 4

  • 2020-11-24 18:05

    아래 명령문을 활용해보세요 ^^

    GetFolder 명령문을 실행하시면 C:\ 하위 모든 폴더 목록이 출력됩니다.

    답변이 도움이 되셨길 바랍니다.

    Sub GetFolder()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ListFolder fso.GetFolder("C:\")
    End Sub
    
    Sub ListFolder(Folder)
    On Error Resume Next
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
    ListFolder SubFolder
    Debug.Print SubFolder.Name
    Next
    End Sub

    • 2020-11-26 16:31

      답변 감사합니다

      그런데 혹시 엑셀에 값을 반환할려고 한다면

      예를 들어 1번행 2번행 3번행에 각각 하위 폴더 입력시키는 코드를 짜려면

      msg = subfolder.name

      i = i + 1

      cells(i,1) = msg

      이렇게 하고 다음 for 문을 어디다 써야하는 건가요?

       


      • 2020-11-26 23:10
        채택된 답변

        For 문 대신 if 문을 사용해서 예외처리를 해주셔야 합니다.

        ListFolder 명령문에 순번을 받아오는 변수로 ListFolder(Folder, Index) 와 같이 순번 처리를 해 주셔야 합니다.

        Sub Test
        ListFolder Folder, 2
        End Sub
        
        Sub ListFolder (Folder, Index)
        .Cells(i,Index).Value = Folder.Name
        End Sub

        답변이 도움이 되셨길 바랍니다.


        • 2020-11-27 10:22

          제가 많이 모자란건지 아무리 코드를 조합해봐도 잘 안됩네요

          그냥 합성해서 전체코드를 보여주시면

          제가 나름 해석해서 해볼려고 합니다

          시간 되시면 좀 도와주세요

          감사합니다

          코드 조합할려고 하니까 조합이 되지 않습니다


전체 2,195
번호 카테고리 제목 작성자 작성일 추천 조회
2187 함수/공식
New 구글독스 ArrayFormula 적용 문의(날짜별 범위 텍스트의 합) 첨부파일 (2)
basetouch | 17:08 | 추천 0 | 조회 7
basetouch 17:08 0 7
2186 함수/공식
New =IF(OR(ISNUMBER(SEARCH(TRANSPOSE($K$1:$K$3),I524))),"출력값","") 첨부파일 (1)
율리안나 | 15:26 | 추천 0 | 조회 17
율리안나 15:26 0 17
2185 함수/공식
New 특정 셀값이 나오면 해당 행 전체를 가져오기 첨부파일 (2)
1action | 13:38 | 추천 0 | 조회 35
1action 13:38 0 35
2184 함수/공식
New vlookup 함수으로 다중조건 정리 (1)
wodud**** | 13:37 | 추천 0 | 조회 23
wodud**** 13:37 0 23
2183 함수/공식
New 일자별 매출합계 자동 추가 함수 첨부파일 (1)
마운틴 | 12:37 | 추천 0 | 조회 26
마운틴 12:37 0 26
2182 함수/공식
New 매월 최근 데이터로 업데이트 하는 방법 첨부파일 (3)
정보사랑 | 11:19 | 추천 0 | 조회 30
정보사랑 11:19 0 30
2181 함수/공식
New 동적범위 함수 질문 첨부파일 (1)
Jeff | 11:11 | 추천 0 | 조회 20
Jeff 11:11 0 20
2180 함수/공식
New 값이 공백이면 X 표시가 나오게 하는 법 (2) 답변완료
유빈 | 10:41 | 추천 0 | 조회 28
유빈 10:41 0 28
2179 VBA
New vba폼에서 옵션단추 그룹 분리(?) 하는 방법 (1)
까까오똑 | 10:06 | 추천 0 | 조회 13
까까오똑 10:06 0 13
2178 VBA
New 셀병합 코드인데 이상하게 작동이 되네요. (1)
이하늘 | 08:29 | 추천 0 | 조회 16
이하늘 08:29 0 16
2177 기능/도구
New 함수의 결과값을 다른 SHEET의 일정한 셀의 입력값으로 가져가는 해결방법 (2)
ray_song | 08:26 | 추천 0 | 조회 24
ray_song 08:26 0 24
2176 파워쿼리/피벗
New 웹 크로링 문의
작은소녀 | 08:01 | 추천 0 | 조회 19
작은소녀 08:01 0 19
2175 VBA
New Get_Balance 함수 사용시 불러온 DB를 참조하기 (1) 답변완료
새우튀김 | 2021.01.25 | 추천 0 | 조회 21
새우튀김 2021.01.25 0 21
2174 함수/공식
New 이런 조건부 함수가 가능할까요? (2)
꼼꼼이 | 2021.01.25 | 추천 1 | 조회 43
꼼꼼이 2021.01.25 1 43
2173 함수/공식
New 두줄로 입력된 텍스트를 한줄씩 나눠서 정리하는 방법에서 (2)
wodud**** | 2021.01.25 | 추천 0 | 조회 32
wodud**** 2021.01.25 0 32
2172 함수/공식
New 함수문의 첨부파일 (2)
Hans | 2021.01.25 | 추천 0 | 조회 33
Hans 2021.01.25 0 33
2171 문서서식
New 엑셀 메모서식 in macOS (2)
초롱초롱 | 2021.01.25 | 추천 0 | 조회 22
초롱초롱 2021.01.25 0 22
2170 함수/공식
New 판매누적금액응 선착순으로 달성한 사람 구하는 함수 첨부파일 (2) 답변완료
블링블링 | 2021.01.25 | 추천 0 | 조회 44
블링블링 2021.01.25 0 44
2169 함수/공식
New 특정문자를 포함하는 데이터 오른쪽 값 추출 첨부파일 (1)
나나 | 2021.01.25 | 추천 0 | 조회 37
나나 2021.01.25 0 37
2168 함수/공식
New 다중데이터 유효성 목록 관련 (3) 답변완료
쌩쥐 | 2021.01.25 | 추천 0 | 조회 38
쌩쥐 2021.01.25 0 38
2167 함수/공식
New 급여 소득세 함수 질문 첨부파일 (1) 답변완료
yhj**** | 2021.01.25 | 추천 0 | 조회 42
yhj**** 2021.01.25 0 42
2166 함수/공식
New 엑셀 자료에서 다중 조건일때, 자료 찾아 오기. 내림 차순으로. 첨부파일 (4) 답변완료
천고마비 | 2021.01.25 | 추천 1 | 조회 50
천고마비 2021.01.25 1 50
2165 함수/공식
New 상품상의 주차 기준으로 , 보증기간 적용 유무 함수 첨부파일 (1) 답변완료
네비악 | 2021.01.25 | 추천 0 | 조회 24
네비악 2021.01.25 0 24
2164 함수/공식
New 당직근무자 자동생성 관련 첨부파일 (2) 답변완료
naver_5f055a605ee7d | 2021.01.25 | 추천 0 | 조회 48
naver_5f055a605ee7d 2021.01.25 0 48
2163 기능/도구
New 혹시 엑셀에서 이런 기능이 구현 가능할까요? (4)
루센 | 2021.01.25 | 추천 0 | 조회 69
루센 2021.01.25 0 69
2162 함수/공식
New vlookup 사용할때 , 첨부파일 (2) 답변완료
네비악 | 2021.01.25 | 추천 0 | 조회 43
네비악 2021.01.25 0 43
2161 VBA
New 웹에 업로드되어있는 csv, pdf 파일에서 크롤링해오는방법?! (3) 답변완료
형두 | 2021.01.25 | 추천 0 | 조회 40
형두 2021.01.25 0 40
2160 함수/공식
New 주차 알기 함수 (3) 답변완료
007 | 2021.01.24 | 추천 0 | 조회 64
007 2021.01.24 0 64
2159 함수/공식
New 주중으로만 보이는 출석부 첨부파일 (6) 답변완료
슬빈사랑 | 2021.01.24 | 추천 1 | 조회 69
슬빈사랑 2021.01.24 1 69
2158 함수/공식
New 두 날짜 사이에 해당 값 추출 질문 (1)
서니 | 2021.01.24 | 추천 0 | 조회 31
서니 2021.01.24 0 31