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)