Доступ к пути к файлам VBA Forms через средство выбора файлов

Question

Я получил этот код для формы доступа, чтобы открыть средство выбора файлов и выбрать файл. Я нашел код в inte rnet.

Как я могу сделать так, чтобы я получил путь к файлу aswel? Теперь я получаю только имя файла ..

Private Sub FilePath_Click()
Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object

Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

With objDialog
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
    MsgBox "Er is geen bestand gekozen."
Else
    Me.FilePathForm.Value = Dir(.SelectedItems(1), sPath)
End If
End With
End Sub

Answer 1

Значение, возвращаемое FileDialog, содержит полный путь и имя выбранного файла - с помощью Dir вы просто получаете имя файла. Чтобы получить папку, вы можете использовать это:

        Me!FilePathForm = Dir(.SelectedItems(1), sPath)
        Me!FolderName= Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))

С уважением,