Запомнить путь до файла в Textbox

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как в существующем коде на листе:
Private Sub CommandButton1_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialo gFilePicker)
Dim pname As String
With fd
.Title = "Выбор файла"
.InitialFileName = "C:\"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Access Database", "*.mdb", 1
If .Show = 0 Then Exit Sub
pname = .SelectedItems(1)
End With
Me.TextBox1 = pname
Set fd = Nothing
End Sub

исправить чтобы в поле TextBox1 выводился только путь до файла, т.е. результат должен быть в виде, например,:"C:\", а не "C:\имя файла.mdb"?
Заранее спасибо.

[doober]

pname = .SelectedItems(1)

Заменить на

pname = .InitialFileName

[ольгаг]

Спасибо большое, работает!