Запомнить путь до файла в 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"? Заранее спасибо.
2 ответа

pname = .SelectedItems(1)
Заменить на
pname = .InitialFileName


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