ник: Alex
Спасибо, Олег!
Первый вариант подошел. Все работает - то что нужно 
Правда не сразу сообразил как результат в поле запихнуть
...
' Проверим, не произошел ли возврат в результате нажатия клавиши Esc (-302)
If ret <> -302 Then
SelectFolderDialog = strFile
End If
Forms!Установки!ФотоПуть = strFile
End Function
|