Używam dostępu ms i chcę dodać przycisk do przeglądania pliku, uzyskać nazwę pliku i jego ścieżkę. Następnie chcę zapisać ścieżkę pliku i nazwę pliku w 2 oddzielnych zmiennych. Kod, który mam do tej pory, znajduje się poniżej i w tej chwili mogę przeglądać plik i uzyskać tylko nazwę pliku. Czy ktoś może mi pomóc dodać do mojego kodu, aby uzyskać ścieżkę do pliku i przechowywać zarówno nazwę pliku, jak i ścieżkę do pliku w osobnych zmiennych.

Private Sub Command7_Click()

Dim f As Object

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

If f.Show Then
    For i = 1 To f.SelectedItems.Count
        MsgBox Filename(f.SelectedItems(i))
    Next
End If

End Sub


Public Function Filename(ByVal strPath As String) As String

If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
    Filename = Filename(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)

End If

End Function