如何將整個文件路徑插入文本框，而不僅僅是文件名？訪問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)