[VB6] 폴더 생성 (경로에 포함 된 모든 폴더 생성)

 

폴더 생성 (경로에 포함된 모든 폴더 생성)

---

포스팅 개요

프로그램 코딩을 하다 보면 원하는 경로에 반드시 폴더를 만들어야 하는 경우가 있습니다. VB에서는 MkDir 명령어를 제공하지만 폴더를 생성하는 기능만 존재하기에 만들어질 폴더 존재 여부를 체크하는 것부터 경로상에 없는 폴더까지 체크하는 기능을 손수 다 구현해야 됩니다. 이러한 문제점을 해결한 모듈을 오늘 포스팅 예제로 만들어보았습니다.

---

상세 소스 코드

 

• 소스 코드 안에  Module(.bas)을 선택해 해당 서브 프로시저를 추가

Public Sub MakeDir(ByVal Path As String)

    On Error Resume Next
    
    Dim strTmp() As String
    Dim i        As Long, j As Long
    Dim sDir     As String
    
    Path = Replace(Path, "/", "\")
    strTmp = Split(Path, "\")

    For i = 0 To UBound(strTmp)
        sDir = ""

        For j = 0 To i
            sDir = sDir & strTmp(j) & "\"
        Next

        If Dir(sDir, vbDirectory) = "" Then
            MkDir (sDir)

        End If

    Next

End Sub

 

---

실행 결과

 

• 함수 사용 예) Call MakeDir("C:\빨\주\노\초\파\남\보\폴더 생성 성공")

빨 주 노 초 파 남 보 상위 폴더를 전부 생성