Форум по VBA и MS Office

Как узнать, существует папка или нет?

Sub Макрос()

    Dim FN_Папка As String
   
    FN_Папка = "C:\Users\User\Desktop\Папка"
    If Dir(FN_Папка, vbDirectory) <> "" Then
        MsgBox "Папка существует.", vbInformation
    Else
        MsgBox "Папка не существует.", vbExclamation
    End If
   
End Sub

спасибо