обработка отмены в CommonDialog

[uk8amk]

при указании пути к файлу использую Commondialog1.ShowOpen. в книжке рекомендуется для обработки нажатия на отмену использовать следующий код:

if CommonDialog1.Filename="" Then Exit Sub

Однако если ранее уже был открыт файл, то этот же файл будет открыт повторно при нажатии на кнопку отмены.
Можно было бы использовать перед каждым вызовом Comondailog1 код

Commondialog1.Filename=""

Но это может изменить открывающийся каталог. Как быть в этом случае?

[alibek]

Вообще-то правильнее включать CancelError и обрабатывать ошибку.
Также можно проверять StrPtr=0.

[Alexanbar]

Код: Выделить всё


sub ShowDlg

with CommonDialog1
    . CancelError=True
   
     on error resume next
     .show open
      if err.number=cdlcancel then
            err.clear
            exit sub
      endif
     
      err.clear
      on error goto 0
 
      msgbox .filename



end with


end sub

[uk8amk]

спасибо