У меня есть код, чтобы получить диалоговое окно для выбора имени папки и отображения имени папки, которую выбирает пользователь.

Но в случае, если пользователь пытается выбрать «Отмена» вместо пути к папке и «ОК», он выдает ошибку.

Согласно моим наблюдениям, я использовал переменную состояния и заметил, что после отмены статус изменяется на -1. Поэтому я попытался реализовать код в разделе комментариев, используя условие if для выхода из подпрограммы.

Но это не работает в случае выбора папки, когда закомментированная часть присутствует в коде.

Без этого он прекрасно работает при выборе папки.

Может ли кто-нибудь, пожалуйста, помочь в этом? Это минутный шаг, я что-то упускаю :(

  sub abc()
     Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
        diaFolder.AllowMultiSelect = False
        diaFolder.Title = "Select a folder then hit OK"
        diaFolder.Show
        'Status = diaFolder.Show
        'If Status < 0 Then
        'Exit Sub
        'End If
        a = diaFolder.SelectedItems(1)

        MsgBox ("Folder selected is :" & a)
    ens sub