VPF::FileListbBox - Форум программистов

Olone

Дата 21.11.2004, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 99
Регистрация: 3.10.2004
Где: Лефортово, Москва

Репутация: нет
Всего: 2

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

Alexandr8

Дата 21.11.2004, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 14.11.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет

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

Olone

Дата 21.11.2004, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 99
Регистрация: 3.10.2004
Где: Лефортово, Москва

Репутация: нет
Всего: 2

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

Alexandr8

Дата 21.11.2004, 21:05 (ссылка)

(нет голосов)

Загрузка ...

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

-Mikle-

Дата 23.11.2004, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Цитата

Удали расшерение и будет писать 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

Это сообщение отредактировал(а) cardinal - 23.11.2004, 16:44

--------------------

Если тебе плюют в спину, значит ты впереди...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »