在桌面上创建没有消息的文件夹，如果存在，忽略

【问题标题】：Create folder on desktop with no messages, if exist, ignore在桌面上创建没有消息的文件夹，如果存在，忽略
【发布时间】：2021-10-22 17:06:09
【问题描述】：

我需要在工作簿打开时创建一个 VBA 宏，并在 /FATURAS 上创建一个桌面文件夹。

如果该文件夹不存在，则打开包含该文件夹创建信息的消息框，如果已存在，则忽略且不提醒消息。

【问题讨论】：

欢迎来到 SO，请注意 SO 不是代码编写服务。您必须进行自己的研究，尝试它，如果您被困在某个特定点，请随时使用您的代码尝试发布一个问题并解释什么不起作用（错误？哪一行和什么消息？不起作用？详细解释你在期待什么）
如果您已经尝试过，请编辑您的问题并将您的代码包含在问题中，以便我们为您提供帮助。
我找到了我要找的东西。

标签： vba directory

【解决方案1】：

Private Sub Workbook_Open()

        Dim cOb As Variant
        Dim FolderName As String, FolderExists As String
        FolderName = "C:\Users\AAAAA\Desktop\A New Folder" '---->Change folder name to suit. Change the AAAAA to your requirement.
        FolderExists = Dir(FolderName, vbDirectory)
    
Application.ScreenUpdating = False
       
       If FolderExists = vbNullString Then
            MsgBox "The desktop folder doesn't exist. Creating a new folder now.", vbExclamation, "INFORMATION"
            cOb = CreateObject("wscript.shell").specialfolders("Desktop") & "\" & "A New Folder" '--->Change folder name to suit.
            MkDir cOb
            Else: Exit Sub
       End If
    
Application.ScreenUpdating = True

End Sub

【讨论】：

我认为您不需要禁用和启用 ScreenUpdating 属性，因为您没有对工作簿执行任何操作，因此您可以删除这些行。您也可以删除Else: Exit Sub，因为您的代码无论如何都会退出子