ник: FORMAT
Определение пути
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Поиск Документа "
.ButtonName = "Добавить"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "*", "*.*", 1
result = .Show
' Закоментированный фрагмент не дает возможности выйти пока не загрузится файл
'******************************************************************************
'If result = 0 Then
'Do Until (result <> 0)
'MsgBox ("Необходимо внести файл в базу")
'result = .Show
'Loop
'End If
'*********************************************************************************
FName = Trim(.SelectedItems.Item(1))
End With
FName содержит строку пути к файлу.