엑셀 vba Create_Folder

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

    

    If autoDate = True Then

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

    Else

      Path = str

    End If

    

    filePath = Path

    If Dir(filePath, vbDirectory) = "" Then

        MkDir (filePath)

    End If

    Create_Folder = filePath

End Function

..

.