Как получит из пути имя файла?

[Tok]

Прошу не пинать ногами и пр. Поиском по форуму я кое-что нашел, НО...

Итак, в List1 некими действиями были добавлены строчки:

Код: Выделить всё

1=c:\1\1.txt
2=c:\1\2.txt
3=c:\1\3.txt
...

Нужно чтобы при нажатии на какой-нибудь контрол срезался путь вплоть до имени во всех строках List1. Как бы такое сотворить?
Спасибо за внимание!

[corgi]

ну каким нибудь контролом может быть кнопочка
а код будет гдето таким:
Dim i As Integer
Dim a() As String
For i = 0 To ListBox1.ListCount - 1
a = Split(ListBox1.List(i), "\")
ListBox1.RemoveItem i
ListBox1.AddItem a(UBound(a)), i
Next

[Tarik]

Можно ещё с помощью InstrRev сделать:

Код: Выделить всё

dim i as integer
dim strName as string
for i=0 to list1.listcount-1
    strName=mid$(list1.list(i), instrrev(list1.list(i),"\")+1)
     list1.removeitem i
     list1.additem strName, i
next i


В общем-то, будет то же самое