Переменной присвоить имя файла

[komar73]

Подскажите как переменной Filename присвоить не полный путь к выбраному файлу а только имя выбраного файла

With Application.FileDialog(msoFileDialo gOpen) 'только для MS Excel XP и старше
.InitialFileName = "d:\Abonent"
.FilterIndex = 10
.AllowMultiSelect = False
If .Show = -1 Then
Filename = .SelectedItems(1) ' читаем путь выбранного файла
Else
Exit Sub ' отмена чтения
End If
End With
MsgBox "Выбран файл " & Filename, vbInformation, "Результат выбора файла"

[mchip]

Команда Dir,

переменная = Dir(Filename)

[viter.alex]

Если без операций со строками, тогда так:

Set FSO = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogOpen) 'только для MS Excel XP и старше
  .InitialFileName = "d:\Abonent"
  .FilterIndex = 10
  .AllowMultiSelect = False
  If .Show = -1 Then
    Set File = FSO.GetFile(.SelectedItems(1))
    Filename = File.Name' читаем путь выбранного файла
  Else
    Exit Sub ' отмена чтения
  End If
End With
MsgBox "Выбран файл " & Filename, vbInformation, "Результат выбора файла"

Забыл про Dir

Добавлено позже
Изменил то, что выделено синим.

[komar73]

На строчке

Filename = FSO.GetFile(.SelectedItems(1)).Name ' читаем путь выбранного файла

останавливается и пишет ошибку

[komar73]

Спасобо!
Применил как писал mchip

Filename = Dir(Filename)

и все заработало