[엑셀VBA] 폴더 생성(MkDir)

오늘은 간단한 예제를 가지고 왔습니다.

"C:\temp"라는 폴더에 "test"라는 폴더를 만들어 보겠습니다.

1. 폴더 만들기

Sub makeFolder()
    MkDir ("c:\temp\test")
End Sub

 

MkDir은 폴더를 만들어주는 명령어입니다.

해당 경로에 이미 폴더가 있다면, 아래와 같은 에러 메시지가 팝업됩니다.

2. 폴더 확인하기

이럴 때에는 Dir을 사용해서, 폴더가 있는지 확인하고 갑니다. Dir 옵션 중에 "vbDirectory"를 사용하면, 폴더가 있으면 해당 폴더명을 없으면 ""을 가집니다.

Sub checkFolder()
    MsgBox Dir("c:\temp\test", vbDirectory)
End Sub

3. 조건부 폴더 만들기

 이를 활용해서 폴더가 있으면, "이미 해당 경로에 폴더가 있습니다."를 메시지 창으로 띄우고, 없으면 폴더를 만들고 "폴더를 만들었습니다."고 메시지 창을 띄우겠습니다.

 

Sub makeFolder()
    If Dir("c:\temp\test", vbDirectory) = "" Then
        MkDir ("c:\temp\test")
        MsgBox "폴더를 만들었습니다."
    Else
        MsgBox "이미 해당 경로에 폴더가 있습니다."
    End If
End Sub