엑셀 vba Desktop_Folder_Make

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

    Set WshShell = CreateObject("WScript.Shell")

    deskpath = WshShell.SpecialFolders("Desktop") + "\"

    

    If autoDate = True Then

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

    Else

      Path = str

    End If

    

    filePath = deskpath + Path + "\"

    If Dir(filePath, vbDirectory) = "" Then

        MkDir (filePath)

    End If

    Desktop_Folder_Make = filePath

End Function

.