Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > FileListbBox

Автор: Olone 21.11.2004, 14:37

Как сделать чтобы в FileListbBox отображались файлы без расширения?

Автор: Alexandr8 21.11.2004, 19:26

Создай FilelistBox, щёлкни 2 раза и пиши
File1.Path="путь к файлу" например: File1.Path="C:\Мои документы\"

Автор: Olone 21.11.2004, 20:35

Этоя и сам могу сделать. Вопрос в том что в FileListBox'e отображаются файли из определенной папки. Например "12.txt" мне надо чтобы писалось только 12!!!!!!!!!!!

Автор: Alexandr8 21.11.2004, 21:05

Удали расшерение и будет писать 12

Автор: -Mikle- 23.11.2004, 13:08

Цитата

Удали расшерение и будет писать 12

смешно

ИМХО надо использовать вместо FileListBox простой ListBox и заполнять его вручную.
Если нужно еще и маску использовать, то оператор LIKE поможет тебе.

Код


sub FillListBox(Path as string,Pattern as string)
   Dim tmp As String

   tmp = Dir(path & paterrn)
   List1.Clear
   while Len(tmp) > 0
      List1.AddItem Left$(tmp, InStrRev(tmp, ".") - 1)
      tmp = Dir 
   wend
end sub