엑셀 매크로 VBA 나의 함수 폴더 생성

Function Create_Folder(str As String, Optional autoDate As Boolean = False)

    

    If autoDate = True Then

      Path1 = str & Format(Now, "-yyyymmdd-hhmmss")

    Else

      Path1 = str

    End If

    

    filePath = Path1

    If Dir(filePath, vbDirectory) = "" Then

        MkDir (filePath)

    End If

    Create_Folder = filePath

End Function

.