通过文件选择器访问VBA表单文件路径

我在访问表单中获得了打开文件选择器并选择文件的代码。我在网上找到了密码

我怎样才能使它也得到文件路径？现在我只得到文件名

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

---

FileDialog返回的值包含所选文件的完整路径和名称-使用Dir仅获取文件名。要获取文件夹，您可以使用以下方法：

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

问候,