forms - 如何将整个文件路径插入文本框中，而不仅仅是文件名？访问 2010

Question

我目前正在使用以下代码来选择文件并将其路径添加到文本框中。

 Dim objDialog As Object

 Set objDialog = Application.FileDialog(3)

 With objDialog
   .AllowMultiSelect = False
   .Show
   If .SelectedItems.Count = 0 Then
     MsgBox "No file selected."
   Else
     Me.FileNameTextBox = Dir(.SelectedItems(1))
   End If
 End With
 Set objDialog = Nothing

如何使它插入整个文件路径，而不仅仅是文件名？

Answer 1

.SelectedItems(n) 已包含完整路径和文件名。如果您需要的只是将文件名与其路径分开，而不是使用 Dir 函数，您可以使用如下内容：

Me.FileNameTextBox = Mid$(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1)
Me.PathTextBox = Left$(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))

希望这可以帮助！

Answer 2

你需要删除dir()部分，EG....

Me.FileNameTextBox = .SelectedItems(1)