Доступ VBA - Application.FileDialog

Question

Быстрый вопрос, у меня есть простой фрагмент кода, который позволяет пользователю щелкнуть текстовое поле и найти местоположение требуемого файла. Однако могу ли я получить это так, чтобы при появлении всплывающего окна «Браузер» отображался конкретный путь к файлу, т.е. T: \ Производство

Private Sub SideProfile_Click()

        Dim vrtSelectedItem As Variant

        With Application.FileDialog(3)
            .AllowMultiSelect = False
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                SideProfile = "#" & vrtSelectedItem & "#"

            Next vrtSelectedItem
        Else
            End If
        End With

End Sub

Answer 1

Добавить

.InitialFileName = CurrentProject.Path 'Or any path  

в блок With Application.FileDialog(3).