엑셀 VBA 기본기능 정리 - 폴더 존재여부 확인 및 생성

엑셀 VBA 기본기능 정리 - 폴더 존재여부 확인 및 생성

Sub toImage()
Dim 상위경로 As String
Dim 하위경로 As String
Dim 파일명 As String

파일명 = u1_1성명.text & Left(u1_2주민등록번호.text, 6)
상위경로 = ThisWorkbook.path & "\" & Date & "\"
하위경로 = ThisWorkbook.path & "\" & Date & "\" & 파일명 & "\"

If (Dir(상위경로, vbDirectory) <> "") <> True Then MkDir 상위경로
If (Dir(하위경로, vbDirectory) <> "") <> True Then MkDir 상위경로

End Sub       

 

• Dir 함수
• 개요 : Dir(경로, 세부 조회 조건)으로 구성되는 간단한 함수이다. 반환값은 해당 경로에 위치한 파일의 파일명/폴더명이다. 해당 위치에 폴더/파일 등이 존재하지 않는 경우 빈 String ""이 반환된다.
• 세부 조회 조건 : vbNormal(기본값, 파일 조회, 조건 없음), vbReadOnly(읽기전용인 파일), vbHidden(숨겨진 파일), vbSystem(시스템 파일), vbDirectory(vbNormal에 추가적으로 폴더도 조회가능)
• MkDir : 특별한 선언이나 Object추가 없이 즉석에서 폴더를 생성한다. 단, 상위 폴더까지 한번에 만들어주지는 않으므로, 순차적으로 상위 폴더부터 생성해야 한다.