filename1[i] - массив с именами

SongListReset()
SearchForFiles("<SrcDir>\db","*.dbf")
ListBoxAddItem("list1","<List>")
ListBoxGetItems("list1","ItemsArray$,N umItemsArr ay$,#,NumOfAllItems")
For i=1 To NumOfAllItems
filename1$[i]=GetArrayItem(ItemsArray$,#,i)
RetName$[i]=ExtractName(filename1$[i])
Message("Смотри ","RetName$[i]")
Next i

Получилось так как я хотел.
Выводит только имена без адресса и расширения.

Добавлено (03 Январь 2009, 17:59)
---------------------------------------------
Вот если кому надо такой вариант.
For i=1 To NumOfAllItems
Во всём цикле можно даже и не использовать filename1$[i]
А просто прописать туда filename1$
Ведь весь этот цыкл будет прорабатывать столько - сколько строк загруженно в list1 это определяет уже NumOfAllItems
Next i

Меня интересует ешё такой вариант:
Вот для поиска мы поставили SearchForFiles("<SrcDir>\db","*.dbf") точьнее файлы с расширением .dbf
Допустим - SearchForFiles, получилось что у нас найденно - (001.dbf) (sto.dbf) и (name.dbf)
Нужно чтобы, если есть фаилы (001.dbf) (sto.dbf) и (name.dbf) и в тоже время есть фаилы (001.txt) (sto.txt) и (name.txt)
То,, тогда добавляетса это всё в list1, (но только с расширением согласно ношему поиску SearchForFiles("<SrcDir>\db","*.dbf")
Ну А если,, есть фаил (001.dbf), А (001.txt) нету - то соотведственно (001.dbf) уже не должен попасть в list1.
Естественно эти самые .txt находятса в тойже директории что и .dbf
Возвожно как-нибуть выполнить в ММВ такое?

Надеюсь я понятно написал...